Question

кратно ли заданное число 5 или 6; если нет, вывести остаток от деления на 4

Answer 1

===Pascal ABC.Net===

program brainly;

var

 number :integer;

begin

 Write('Введите число: ');

 ReadLn(number);

 if (number mod 5 <> 0) and (number mod 6 <> 0) then Write('Результат: ', number mod 4);

end.

b38353750df48b958cea39af9c67e34e.pas