Question

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

Answer 1

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.

Answer 2

пожалуйста

Answer 3

вот всё

Answer 4

если захочешь изменить промежуток чисел ну не от 1 до 100 а допустим от 1 до 200 изменяй строку for a:=1 to 100 do

Answer 5

спасибо