Написать программу вычисления суммы 1+1/2+1/3+…+1/n для заданного числа n.Результат представить в виде несократимой дроби p/q (p,q натуральные) — Pascal(Паскаль)

const n=100;
var a:integer;
i:integer;
x,b:real;
begin
x:=0;
for a:=1 to n do
x:=x+1/a;
b:=x*100;
writeln(b:3:0,'/100');
readln;
end.

Похожие записи/страницы:

Leave a Comment

6 + 2 =