Среда, 08.01.2025
Pascal 4 All
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории каталога
Задачки циклы и условия [27]
Простые задачки, циклы, условия.
Наш опрос
А вы знали, что кликнув на обьявление в правом блоке раз в день Вы поможете сайту?
Результаты | Архив опросов
Всего ответов: 332

Главная » Статьи » Простые » Задачки циклы и условия

  
Факториалы

Program PRACT4;
Uses CRT;
Const
   Fact: Array[0..6] of Integer = (1,1,2,6,24,120,720);
Var a, b, c: Byte;
Begin
ClrScr;
For a := 1 to 6 do
    For b := 0 to 6 do
        For c := 0 to 6 do
            Begin
            If ((a * 100 - Fact[a]) +
                (b * 10 - Fact[b]) +
                (c - Fact[c]) = 0) then Writeln(a,b,c);
            End;
ReadKey;
End.

Источник:

Категория: Задачки циклы и условия | Добавил: Seqular (23.09.2007) | Автор: Дмитрий
Просмотров: 846 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2025
Используются технологии uCoz
style=