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

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

  
Приписать слева и справа цифры

Program PRACT3;
Uses CRT;
Const X: Integer = 1022;
Var N: LongInt;
    a, b: byte;
    f: boolean;
Begin
ClrScr;
For a := 1 to 9 do
    Begin
    If (f) then break;
    For b := 0 to 9 do
        Begin
        N := 100000 * a + X * 10 + b;
        If (N mod 7*8*9 = 0) then
           Begin
           Writeln('Минимал число: ',N);
           f := true;
           Break;
           End;
        End;
    End;
Writeln('Для проверки');
Writeln(N, ' / 7 = ', N/7:0:0);
Writeln(N, ' / 8 = ', N/8:0:0);
Writeln(N, ' / 9 = ', N/9:0:0);
ReadKey;
End.

Источник:

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

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