Составте алгоритм для вычисления суммы 100 чисел
Составте алгоритм для вычисления суммы 100 чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы