Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.04.2018 17:45
- Информатика
- remove_red_eye 18471
- thumb_up 26
Ответы и объяснения 2
var
i, n:integer;
s, w:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
w:=(i+1)/i;
s:=s+w;
end;
writeln('Ответ: ', s);
end.
- 28.04.2018 05:54
- thumb_up 7
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln('S=',SeqGen(ReadInteger('n='),i->(i+2)/(i+1)).Sum)
end.
Тестовое решение
n= 10
S=12.9289682539683
- 29.04.2018 21:08
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.