Написать программу, вычисления значения выражения: 1+1/2+1/3+1/4+⋯+1/10

aliona123456789 aliona123456789    1   04.10.2019 09:20    2

Ответы
natashavoropaeva natashavoropaeva  09.10.2020 19:16

var

a:integer;

b:real;

begin

for a:=1 to 10 do b:=b+1/a;

writeln(b);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика