Составить программу на Паскале для решения задачи.
Ввести 2 целых числа. Проверить, делится ли первое число на второе без остатка. Вывести на экран результат в случае деления без остатка, если же дел - вопрос №4430415
Program Delim;
Var a, b: integer;
Begin
write( ' Введите через пробел два целых числа: ' ) ;
readln(a, b);
If a mod b = 0, then
write ( ' Частное =: ', a div b)
else write ( ' Частное = ', a div b, ' Остаток = ', a mod b);
End.