Вопрос по информатике:
Очень нужна помощь. Программа в Pascal Недавно Петя научился считать. Он тут же
заметил, что число 2 обладает замечательным
свойством - 2 + 2 = 2 × 2. Его старший брат
Ваня тут же объяснил ему, что дело не в
двойке.
"Дело в том, что последовательность 2, 2 -
волшебная," - сказал Пете Ваня. - "Волшебная
последовательность - это такая
последовательность натуральных чисел, что
сумма ее членов равна их произведению.
Например последовательность 1, 2, 3 - тоже
волшебная."
Петя тут же сложил 1, 2 и 3, потом
перемножил их и обрадовался.
Теперь Петя хочет найти более длинные
волшебные последовательности. Помогите
ему!
- 11.07.2015 02:29
- Информатика
- remove_red_eye 8684
- thumb_up 38
Ответы и объяснения 1
Нет решений не знаю короче вот код для 5 чисел(для 4 чисел я уже проверил)
program gt;
var a,b,c,d,e:integer;
begin
for a:=1 to 50 do
for b:=a+1 to 50 do
for c:=b+1 to 50 do
for d:=c+1 to 50 do
for e:=d+1 to 50 do
if(a+b+c+d+e=a*b*c*d*e)then writeln(a,' ',b,' ',c,' ',d,' ',e);
end.
Если числа могут повторятся то ответов много Пример:5 2 1 1 1
- 12.07.2015 05:34
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.