Найти сумму положительных четных чисел, больших 150 и меньших 200 pascal

hdjdhd1 hdjdhd1    2   09.08.2019 08:40    0

Ответы
Subota Subota  04.10.2020 06:56
Var i,s:integer;
begin
s:=0;
for i:=150 to 200 do
if i mod 2=0 then s:=s+i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика