Регистрация
TIME6ONLINE
08.12.2020 12:01
Информатика
Есть ответ 👍

Дано натуральное число n. напишите программу ддя вычесленния суммы 1/1 + 1/2 + 1/3+ .. + 1/n

134
419
Посмотреть ответы 2

Ответы на вопрос:

ulya061
ulya061
4,8(57 оценок)
Program n1; var n,i: integer; sum: real; begin sum: =0; readln(n); for i: =1 to n do sum: =sum+1/i; write(sum); end.
Chokoladik
Chokoladik
4,7(25 оценок)
Var n: integer; begin writeln('введите число'); read(n); if (n> =1000) and (n< 10000) and (n mod 5=0) then writeln('удача'); end.

Популярно: Информатика