Программа определяет делится ли первое число на второе нацело и выводит частное:
var
a, x, y: integer;
b: real;
begin
writeln('Введите два числа');
read(x, y);
a := x mod y;
b := x / y;
if a = 0
then writeln('Первое число делится на второе, частное: ', b)
else writeln('Первое число не делится на второе');
end.
Программа определяет делится ли первое число на второе нацело и не выводит частное:
var
a, x, y: integer;
begin
writeln('Введите два числа');
read(x, y);
a := x mod y;
if a = 0
then writeln('Первое число делится на второе')
else writeln('Первое число не делится на второе');
end.