Найти сумму положительных нечетных чисел, меньших 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.
Вопросы в ЛС
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.
Вопросы в ЛС