Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB8
.2.pas program Lab8;
Var x,n:integer;
y:real;
Begin
writeln('Введите x=');
readln(x);
writeln('Введите N=');
readln(n);
writeln('x y');
For x:=1 to n do
Begin
y:=1/sqr(x);
writeln(x, ' ', y:5:3);
end;
end.
Var x,n:integer;
y:real;
Begin
writeln('Введите x=');
readln(x);
writeln('Введите N=');
readln(n);
writeln('x y');
For x:=1 to n do
Begin
y:=1/sqr(x);
writeln(x, ' ', y:5:3);
end;
end.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант