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

Question

Информатика

Ксенюша

14 марта, 23:47

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

+2

Ответы (1)

Знаете ответ на вопрос?

Сергиян · Answer 1

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.