Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.11.2015 10:06
- Информатика
- remove_red_eye 16020
- thumb_up 14
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1404 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k:=Trunc((1.3-1)/0.05)+1;
for var i:=1 to k do begin
var a:=1+0.05*(i-1);
var f:=a+2.0;
for var n:=2 to 5 do f+=power((a+n),n);
Writeln(a:4:2,f:18:9)
end
end.
Результат
1.00 8477.000000000
1.05 8834.605319063
1.10 9204.114110000
1.15 9585.819144688
1.20 9980.017920000
1.25 10387.012695313
1.30 10807.110530000
- 04.11.2015 16:00
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.