Для заданного числа n составьте программу вычисления - вопрос №112131411844330 от deadpool2478 16.12.2021 20:30

Question

Информатика: Для заданного числа n составьте программу вычисления суммы s=1+1/2+1/3+1/4+…+1/n, где n – натуральное число через repeat,

deadpool2478 · Answer

program raf105; var  i,n: integer;  s: real; begin  write( Введите N: );  readln(n);  repeat    i:= i+1;    s:= s + 1/i;  until i = n;  writeln( S = ,s); end.PascalABC 3.4.2...