Для заданного числа n составьте программу вычисления - вопрос №185303511213141 от NoName4643 14.03.2023 00:29

Question

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

NoName4643 · 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); end.PascalABC 3.4.2...