Для заданного числа n составьте программу вычисления - вопрос №112131411852358 от olga195888 21.03.2021 10:26

Question

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

olga195888 · 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...