Предмет: Информатика,
автор: Блицкранк
PASCAL цикл While . a(n)=n/n(n) Решите пожалуйста(((
Приложения:

Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: SuicideXmouse
Предмет: Английский язык,
автор: layloorazimbetova42
Предмет: Математика,
автор: ominaabdukadirova860
Предмет: Алгебра,
автор: Marina1si
Предмет: Математика,
автор: Аноним