Для заданного числа n составьте программу вычисления - вопрос №111852701 от toktasynnazerke 22.08.2021 19:56

Question

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

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