Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Если целое число m делится на целое число n то на экран частное от деления в противном случае сообщение "m na n на целое не делится"

Ответ оставил Гость

Var m,n  : integer;
begin
  Writeln (Введите делимое число);
  readln (m);
  Writeln (Введите делитель);
  readln (n);
  if (m mod n)=0 then writeln (m,:,n,=,m/n)
                        else writeln (m, на ,n, на целое не делится);
end.