Ответы
Ответ дал:
0
Program n1;
var S,i,n: integer;
begin
i:=1;
S:=0;
writeln('введите n: ');
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln('сумма: ',S);
end.
var S,i,n: integer;
begin
i:=1;
S:=0;
writeln('введите n: ');
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln('сумма: ',S);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад