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

Łųçů Łųçů    2   17.03.2021 20:02    2

Ответы
makshardin17 makshardin17  17.03.2021 20:10

Вот

Объяснение:

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.".

Удачи :)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика