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

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

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!