Написать программу,которая на вход получает два целых числа и определяет делится ли одно на другое нацело. на выходе программа печатает false, если числа не делятся нацело и результат деления иначе. все в паскале
Var a,b:integer; begin write('a='); readln(a); write('b='); readln(b); if a mod b = 0 then writeln(a,' / ',b,' = ',a div b) else writeln(a mod b = 0); end.
begin
write('a='); readln(a);
write('b='); readln(b);
if a mod b = 0
then writeln(a,' / ',b,' = ',a div b)
else writeln(a mod b = 0);
end.
Пример 1:
a=20
b=5
20 / 5 = 4
Пример 2:
a=20
b=6
False