С помощью оператора for напишите программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

Question

Ионка

29 марта, 15:35

+2

Ответы (1)

Знаете ответ на вопрос?

Мишара · Answer 1

var

i, sum : integer;

begin

sum:=0;

for i:=1 to 99 do

if i mod 20 then sum:=sum+i;

writeln ('sum=', sum) ;

end.