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

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

Сегодня решил сменить подтему, к которой буду выкладывать следующую часть программ 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

Если Вас интересует сертификация продукции, то подробнее Вы можете узнать тут.
Дата: 2013-09-19 11:51:51   Просмотров: 8129

Теги: Паскаль Pascal исходники исходник WHILE циклы