Помогите решить задачу на цикл - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Сайт «Всё о Паскале» > Форум > Pascal, Object Pascal > Задачи

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Помогите решить задачу на цикл

Опции

Гость_Den	24.01.2005 22:14 Сообщение #1
Гость	Даны целые числа m, a1, ..., a20. Найти три натуральных числа i, j, k, каждое из которых не превосходит 20, такие, что ai+aj+ak=m. Если такихчисел нет, то сообщить об этом.

Ответов

klem4	24.01.2005 23:16 Сообщение #2
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Хех, я тоже так сначала хотел написать, но потом вспомнил, что мне бы снизили бал в универе если бы я решил эту задачу через for и за exit. Ведь как говорит наш велекий и могучий препод : цикл for нужно употреблять только в тех случаях, когда точно известно кол-во итераций цикла. Хотя... кто его знает, мне конечно короткий вариант больше нравится Сообщение отредактировано: klem4 - 24.01.2005 23:24 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'