Ответы
Ответ дал:
0
var a,b,c: integer;begin
a:=1;
while a<100 do
begin
c:=c+a;
a:=a+1;
end;
writeln(c);
end.
a:=1;
while a<100 do
begin
c:=c+a;
a:=a+1;
end;
writeln(c);
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад