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

Question

Информатика

Мироха

2 июня, 14:23

Написать программу которая определяет: если целое число 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.