program CheckDivisibility; var num: integer; begin writeln('Введите число: '); readln(num); if (num mod 5 = 0) and (num mod 4 = 0) then writeln('Число делится и на 5, и на 4 без остатка') else if num mod 5 = 0 then writeln('Число делится на 5 без остатка') else if num mod 4 = 0 then writeln('Число делится на 4 без остатка') else writeln('Число не делится ни на 5, ни на 4 без остатка'); end.
Эта программа проверяет, делится ли введенное пользователем число на 5 и на 4 без остатка, и выводит соответствующее сообщение.
Пример программы:
program CheckDivisibility;var
num: integer;
begin
writeln('Введите число: ');
readln(num);
if (num mod 5 = 0) and (num mod 4 = 0) then
writeln('Число делится и на 5, и на 4 без остатка')
else if num mod 5 = 0 then
writeln('Число делится на 5 без остатка')
else if num mod 4 = 0 then
writeln('Число делится на 4 без остатка')
else
writeln('Число не делится ни на 5, ни на 4 без остатка');
end.
Эта программа проверяет, делится ли введенное пользователем число на 5 и на 4 без остатка, и выводит соответствующее сообщение.