. Если целое число m делится нацело ** целое число n, то вывести ** экран частное от...

0 голосов
397 просмотров
. Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение вида m на nнацело не делится.
P.S -в школе делали через Кмир

Информатика (150 баллов) | 397 просмотров
Дан 1 ответ
0 голосов
var m,n:integer;
begin
readln(m,n);
if (m mod n)=0 then
write(m div n) else
writeln(m,' на ',n,' нацело не делится.');
end.

Помог ставь "Лучший ответ" ;)
(1.2k баллов)
0

var m,n,a:integer;

begin
writeln ('Vvesti 2 chisla');
readln (m,n);
writeln;
if m mod n=0 then
writeln (m div n)
else writeln ('M na N hacelo ne delitsya');
readln;
end.