Исходник программы, которая находит минимальное число, большее 300 и делящееся нацело на 19

Введение.

Я принял решение перейти на другой подраздел, на тему которого я буду публиковать последующие программы на языке Pascal, и начать эту подтему я бы хотел с программы, целью которой стоит найти наименьшее число, меньшее определенной константы и кратное другой константе. С этого момента исходники программ будут содержать в себе цикл WHILE.
Исходник программы, которая находит минимальное число, большее 300 и делящееся нацело на 19

Задача.

Краткая формулировка задачи такова: требуется найти наименьшее число, которое больше 300 и которое без остатка делится на 19. Принцип программы, действие которой направлено на решение поставленной задачи, очень прост. Сначала берется переменная N как точка отсчета, ей ставится в соответствие значение, равное 300. Затем, используя цикл с предусловием WHILE выполняем проверку на делимость нацело на 19, и если остаток не равен нулю, то значение переменной N увеличивается на 1 с помощью процедуры inc. Сопроводим код программы необходимыми комментариями.

Код

Var n:integer;  //Описание переменных
Begin           //Начало программы
n:=300;         //начинаем отсчет от 300-х
while n mod 19<>0 do //Пока деление на 19 оставляет остаток
      inc(n);        //увеличиваем n на 1
write(n);            //Выводим нужное число
End.           //Конец программы
Ключевые теги:
Понравилась новость? Добавь в закладки!
Хочешь получать свежие новости? Подпишись на обновления с сайта!
Рекомендуем посмотреть:

Добавление комментария

Ваше Имя:
Ваш E-Mail:
Полужирный Наклонный текст Подчеркнутый текст Зачеркнутый текст | Выравнивание по левому краю По центру Выравнивание по правому краю | Вставка смайликов Выбор цвета | Скрытый текст Вставка цитаты Вставка исходного кода Преобразовать выбранный текст из транслитерации в кириллицу Вставка спойлера

Код:
Включите эту картинку для отображения кода безопасности
обновить, если не виден код
Введите код: