Тема: Циклы.
Подсчитать сумму НЕЧЕТНЫХ чисел от 1 до 99 в ПАСКАЛЕ
Var sum,i:Integer;
Begin
for i:=1 to 99 do
if (i mod 2<>0) then sum:=sum+i;
Writeln(SUM =, sum);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
