Ответы
Ответ дал:
0
Var
s,n,i: Integer;
BEGIN
Write('Введите N: ');
Readln(n);
For i:=1 to n do
s:=s+i;
Writeln(s);
END.
s,n,i: Integer;
BEGIN
Write('Введите N: ');
Readln(n);
For i:=1 to n do
s:=s+i;
Writeln(s);
END.
Ответ дал:
0
это для 5 первых натуральных ?
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад