PASCAL цикл While . a(n)=n/n(n) Решите пожалуйста(((
1 комментария:
помогите(((
помогите((( Ответы
Гость 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.
Нет комментариев
Список предметов
