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

tinn1 tinn1    3   06.04.2020 12:50    0

Ответы
AzalieySagaz AzalieySagaz  17.08.2020 22:11

===Pascal ABC.Net===

program ;

var

 number :integer;

begin

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

 ReadLn(number);

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика