Question

Найти 18+19+20+21+22+23 с использованием оператора цикла.

Answer 1

var
s, i:integer;

begin
s := 0;
for i := 18 to 23 do
s := s + i;
write(s)
end.