Кратные 3, но не кратные 2 и 5
Проверку кратно ли число 3, если да , и оно не кратно 2 и 5, то вывести "YES", если число кратно 3 и 5 или 3 и 2, тогда вывести "NO"
Проверку кратно ли число 3, если да , и оно не кратно 2 и 5, то вывести "YES", если число кратно 3 и 5 или 3 и 2, тогда вывести "NO"
Answers & Comments
Ответ:
program MultiplesOfThree;
var
num: integer;
begin
write('Введите число: ');
readln(num);
if (num mod 3 = 0) and (num mod 2 <> 0) and (num mod 5 <> 0) then
writeln('YES')
else if ((num mod 3 = 0) and (num mod 5 = 0)) or ((num mod 3 = 0) and (num mod 2 = 0)) then
writeln('NO')
else
writeln('Число не удовлетворяет условию');
readln;
end.