1.Составить программу,которая выводит на экран таблицу деления числа 1 на целые числа от 1 до 10 (с двумя знаками после

1)

program i_10;var i: integer;

beginfor i:=1 to 10 do writeln(\'1 / \', i, \' = \', 1/i:4:2)end.

2)

program tabulation;var x , y: real;

beginx:= -1;writeln(\'   x   y=3*x^2+1\');

while x<=10 dobeginy := 3 * x * x + 1;writeln(x : 5 : 1, y : 8 : 2);x:= x + 0.5;end

end.