С помощью Паскаля НАЙТИ СУММУ: 1/1+1/2+1/3… 1/n

Question

48

С помощью Паскаля НАЙТИ СУММУ: 1/1+1/2+1/3… 1/n

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

ogenri · Accepted Answer

46

ogenri

15 апреля 2023

program P1; usescrt; varn,i: integer; summ: real; beginclrscr; write ('N='); read (n); summ: =0; for i: =1 to n do summ: =summ+1/i; writeln ('Otvet: ',summ); readln; readln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: