Самопроверка:

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 запрещено). Измените программу, сделав в начале

дополнительную проверку этого случая​

Tina05    1   25.01.2021 22:55    4