Задачи по Pascal. Определить делиться ли нацело число

Условие задачи : Определить делиться ли нацело число с помощью конструкции if then else (Язык Pascal)

Сложность : легкая .

Решение задачи Pascal :

Для начала продумаем решение.  Первым делом попросим пользователя ввести число которое он хочет делить и число на которое он хочет делить.

Дальше будем использовать условие. В котором будем применять операцию mod, которая находит остаток от деления.

Для того чтобы определить делиться ли нацело число , нам понадобиться одна переменная под число которое мы будем проверять, переменная под число на которое будем делить и конструкция if then else.

Начнем мы с каркаса нашей программы .

var number , del : integer ;
begin

end.

Здесь мы дали нашей программе название, объявили наши переменные , присвоили им целочисленный тип .

Дальше нам надо попросить у пользователя ввести числа.

 write('Введите число которое будите делить : ');readln(number) ;
 write('Введите число на которое будите делить : ');readln(del) ; 

Теперь у нас есть числа с которыми можно работать . Нам нужно проверить делиться ли оно нацело . Вот здесь нам и поможет конструкция if then else .

if (number mod del = 0 ) then writeln(number, ' делиться нацело на ', del)
else writeln(number, ' не делиться нацело на ', del);

Тут мы пишем : если(if) остаток от деления(mod) равен 0 , то мы выводим что число делиться нацело на то число которое мы ввели .

Иначе (else) мы выводим что число не делиться нацело на то число которое мы ввели .

Всё решение задачи Pascal :

var number , del : integer ;
 
begin     
        write('Введите число которое будите делить : ');readln(number) ; // вводим число которое будем делить
        write('Введите число на которое будите делить : ');readln(del) ; // вводим число на которое будем делить
        
        if (number mod del = 0 ) then writeln(number, ' делиться нацело на ', del) // проверяем делиться ли нацело число, если да то выводим что делится 
        else writeln(number, ' не делиться нацело на ', del); // если нет то выводим что не делится

        readln; // чтобы программа не закрывалась 
end.