Предмет: Информатика, автор: lebedevalexandra677

Найти значение выражения:
(Задание выполняется в программе PascalABС)

Приложения:

Ответы

Автор ответа: Puz1koO
1

var

 i:integer;  

 c:real;

begin

 c:=1;

 for i:=2 to 20 do

   c:=c+1/i;

 writeln(c);

end.

Похожие вопросы
Предмет: Английский язык, автор: serge1152k
Предмет: Русский язык, автор: Тимтим1987