Ответы
Ответ дал:
0
Program P17;
Var i, sum: integer;
Begin
Sum:=0;
For i:=1 to 10 do
Sum:=sum+i;
Writeln('sum = ',sum);
End.
Вас заинтересует
3 года назад
3 года назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад