Напишите программу для определения результата деления без остатка числа a на целое число b не равное нулю

Ответ:

Объяснение:

Вот допустим у тебя есть две переменные a и b. Тебе нужно узнать: если остаток от деления a на b =0, тогда вывести "Остаток=0", а иначе-вывести "Остаток=" и вывести остаток.

Ветвление позволит тебе проверить истинность двух или больше операндов. У ветвления есть только два выхода: истина и ложь. Если условие истинно, то ...А если ложно, то... На каждый выход можно после "то... " написать всё что захочешь. Проверять условие можно на равенство (=), неравенство (<>), больше либо равно (>=), меньше либо равно (<=), больше (>), меньше (>) и так далее!

В твоей задаче мы будем проверять условие на равенство. А вот так выглядит ветвление в Паскале:

If (a mod 2)=0 then//Условие

//Что угодно... +не забудь убрать точку с запятой в конце перед else

else

//Что угодно...

Также ветвление может быть без ложной части

If (a mod b)=0 then//Условие

//Что угодно...

А теперь давай решим твою задачу:

__________________________________________

var a, b:integer;//a и b

begin

Readln(a, b);//Вводим a и b

If (a mod b)=0 then//Если остаток от деления a на b равен нулю то...

Writeln('Число a=', a, ' делится на b=', b, ' без остатка! ')

else//Иначе

Writeln('Число a=', a, ' не делится на b=', b, ' без остатка! ');

Readln;//Чтобы программа не пропускала ответ!

end.