Написать программу которая определяет: если целое число M делится на целое число N, то на экране выводит часть деления, в противном случае выводится сообщение "M и N нацело не делиться" в pascal

Question

Информатика

Ардалион

20 января, 20:54

Написать программу которая определяет: если целое число M делится на целое число N, то на экране выводит часть деления, в противном случае выводится сообщение "M и N нацело не делиться" в pascal

+5

Ответы (2)

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

Дмитрий · Answer 1

Var n, m:integer;

begin

readln (m, n) ;

if m mod n = 0 then writeln (m div n) else writeln ('Ne delitsea') ;

end.

Лин · Answer 2

Var

m, n : Integer;

begin

Write ('M = ') ;

Readln (m) ;

Write ('N = ') ;

Readln (n) ;

if M mod N = 0 then

Writeln (M div N)

else

Writeln ('M и N нацело не делится.') ;

Readln;

end.