Найти сумму положительных нечетных чисел, меньших 100.
(Программа Паскаля скорее всего)
var i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if i mod 2 = 1 then sum:=sum+i;
writelnI(sum);
end.
Вопросы в ЛС
Оцени ответ
Вход
Регистрация
Задать вопрос
Найти сумму положительных нечетных чисел, меньших 100.
(Программа Паскаля скорее всего)
var i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if i mod 2 = 1 then sum:=sum+i;
writelnI(sum);
end.
Вопросы в ЛС