PASCAL цикл While . a(n)=n/n(n) Решите пожалуйста(((
PASCAL цикл While . a(n)=n/n(n) Решите пожалуйста(((
Гость
Ответ(ы) на вопрос:
Гостьvar
i,n: integer;
a:real;
begin
n := 1;
readln(i);
while n <= i do
begin
a:=n/(n*n);
n:=n+1;
writeln(a);
end;
end.
Не нашли ответ?
Похожие вопросы