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

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

  
Счастливый билетик

Program PRACT8;
Uses CRT;
Var a,b,c,d,e,f: byte;
    count: word;
Begin
ClrScr;
count := 0;
For a := 0 to 9 do
    For b := 0 to 9 do
        For c := 0 to 9 do
            For d := 0 to 9 do
                For e := 0 to 9 do
                    For f := 0 to 9 do
                        If (a+b+c = d+e+f) then
                           Inc(count);
Writeln('Число счастливых билетов: ',count);
ReadKey;
End.

Источник:

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

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