Question

Знайти суму цілих додатних непарних чисел менших 50​

Answer 1

Ответ:

Вот

Объяснение:

var

i: integer;

summa: integer;

begin

for i := 1 to 49 do

begin

if (i/2) <> (i div 2) then summa := summa + i;

end;

end.

Чтобы вывести полученную сумму, используйте writeln(summa); между "end;" и "end.".

Удачи :)