22.Составить программу, проверяющую длится ли введенное с клавиатуры число x на введенное с клавиатуры число y без остатка или нет.

2

Ответы и объяснения

2012-03-26T17:52:14+04:00

program abc;
   var x, y : integer;
begin
   writeln('Введите X:');
   readln(x);
   writeln('Введите Y:');
   readln(y);
   if (x mod y)=0 then writeln(x, ' делится на ', y, ' без отстатка.')
     else writeln(x, ' делится на ', y, ' с отстатком.');
   readln;
end.

2012-03-26T20:08:25+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var x,y:integer;

Begin

  read(x,y);

  writeln('Остаток ', x mod y);

End.