Самопроверка:
program deliteli;
var a,b:integer;
begin
write(’Введите два целых числа: ’);
readln(a,b);
if a=b then writeln (’Числа равны’)
else
if (a mod b=0) then writeln (a,’ делится на ’,b)
else
if (b mod a=0) then writeln (b,’ делится на ’,a)
else writeln(’Эти числа не делятся друг на друга’);
readln
end.
Эта программа работает с ошибкой, если одно из введённых чисел
равно 0 (деление на 0 запрещено). Измените программу, сделав в начале
дополнительную проверку этого случая
program deliteli;
var a,b:integer;
begin
write('Введите два целых числа: ');
readln(a,b);
if (a=0) or (b=0) then writeln('Одно из чисел =0 (или оба)')
else if a=b then writeln ('Числа равны')
else if (a mod b=0) then writeln (a,' делится на ',b)
else if (b mod a=0) then writeln (b,' делится на ',a)
else writeln('Эти числа не делятся друг на друга');
readln
end.