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

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

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

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