Составте алгоритм для вычисления суммы 100 чисел

taylakova63p06vpw taylakova63p06vpw    1   25.05.2019 02:40    0

Ответы
nezandenzar nezandenzar  21.06.2020 02:20
Var a,b,c:integer;
begin
for a:=1 to 100 do
begin
if a mod 2=0 then b:=b+a
else
c:=c+a;
end;
writeln(b);
write(c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика