Saithi
7 год назад
PASCAL цикл While . a(n) = n/n(n) Решите пожалуйста(((
ОТВЕТЫ
Кассиан
Jul 17, 2019
Var
i,n: integer;
a:real;
begin
n := 1;
readln(i);
while n lt;= i do
begin
a:=n/(n*n);
n:=n+1;
writeln(a);
end;
end.
i,n: integer;
a:real;
begin
n := 1;
readln(i);
while n lt;= i do
begin
a:=n/(n*n);
n:=n+1;
writeln(a);
end;
end.
134
