Найти сумму чисел и значение выражения - Pascal ABC

Формулировка задачи:

1.Найдите сумму чисел 1,1/2,1/3,1/4... больших заданного числа а. 2.Найдите значение выражения

Код к задаче: «Найти сумму чисел и значение выражения - Pascal ABC»

textual
var a,b,s:real;
    i:integer;
begin
write('a=');//чтобы сумма не была 0, вводить маленьое а, меньше 1
readln(a);
s:=0;
i:=1;
b:=1;
while b>a do
 begin
  s:=s+b;
  i:=i+1;
  b:=1/i;
 end;
write('s=',s:0:5);
end.

5   голосов, оценка 4.600 из 5


СОХРАНИТЬ ССЫЛКУ