Дано 2 целых числа. Проверить истинность высказывания "первое число кратно 3, а второе...

Question

Дано 2 целых числа. Проверить истинность высказывания "первое число кратно 3, а второе кратно 5"

Comments

ну так поделите на 3 и на 5, если в остатке 0 - число кратное

Answer 1

Var a,b:integer; 
begin 
read(a,b); 
if ((a mod 3=0)and(b mod 5=0)) then writeln('True')   
else writeln('Fasle'); 
end.

Вводим 12 и 15 -> true
Вводим 12 и 9 -> false