Для заданного числа n составьте программу вычисления - вопрос №184500711213141 от AnzhelaBagdasaryan 04.01.2021 20:00

Question

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

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