Сегодня решил сменить подтему, к которой буду выкладывать следующую часть программ Pascal. Итак, с сегодняшнего дня исходники буду выкладывать по циклу while. Программа, с которой я решил начать, находит минимальное число, большее 300 и делящееся нацело на 19.
Принцип программы очень прост: мы берем переменную для начала отсчета, присваиваем ей значение, равное 300. Далее с помощью цикла с предусловием делаем проверку на делимость без остатка на 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. //Конец программыСкачать программу: pas6while.pas
Если Вас интересует сертификация продукции, то подробнее Вы можете узнать тут.