Для заданного числа n составьте программу вычисления - вопрос №1121311844505 от sagizovtoshtemi 06.06.2020 04:22

Question

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

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