Var P,S,t,g:real;begin write('введите массу стола '); read(t); S:=100; g:=10; P:=(g*t)/S;write('давление на пол, создаваеммое столом равно ',P);end.
var
n : integer;
s : real;
begin
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
end.
n должно быт n >= 10
1) диск
2) поле
.............................
Дані на комп'ютерних носіях знаходятся у файлах,у вигляді ярликів.Кожний файл має своє ім'я.