Предмет:
ИнформатикаАвтор:
lynn94var
s: real;
n, i: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + (i + 1) / i;
writeln(s);
end.
Автор:
cyrus54Добавить свой ответ
Предмет:
ЛитератураАвтор:
rolandОтветов:
Смотреть
Предмет:
МатематикаАвтор:
roscoekt1qОтветов:
Смотреть
Предмет:
Русский языкАвтор:
calebОтветов:
Смотреть
Предмет:
Русский языкАвтор:
estradaОтветов:
Смотреть