Введение.

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

Задача.

Краткая формулировка задачи такова: требуется найти наименьшее число, которое больше 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. //Конец программы