Ответы
Ответ дал:
0
Ответ:
1)10
2) 1 раз
3)
Begin
Readln(n);
S:=0;
For i:=1 to n do
S:=s+i;
Write(s);
End.
4)
Begin
I:=1001;
While (i<10000) do
Begin
I:=i+7;
Writeln(i);
End;
End.
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад