Пожаловаться
- 17.01.2018 07:05
- Информатика
- remove_red_eye 18690
- thumb_up 40
Ответы и объяснения 1
Const
max = 20;
var
i:byte;
sum:real;
begin
writeln();
sum:=0;
i:=1;
while i<=max do begin
sum:= sum + i / (i+1);
i:=i+1;
end;
writeln('1/2+2/3+3/4+4/5+...+',max,'/',max+1,' = ', sum);
end.
max = 20;
var
i:byte;
sum:real;
begin
writeln();
sum:=0;
i:=1;
while i<=max do begin
sum:= sum + i / (i+1);
i:=i+1;
end;
writeln('1/2+2/3+3/4+4/5+...+',max,'/',max+1,' = ', sum);
end.
Пожаловаться
- 18.01.2018 04:37
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы