Question

составьте программу определяющую является ли введенное с клавиатуры целое число кратным 3

Answer 1

var a:integer;
begin
Writeln('Введите целое число');
Readln(a);
if frac(a/3) > 0 then writeln('Число не кратно 3')
else Writeln('Число кратно 3')
end.

P.S. Frac - это дробная часть числа, в данном примере frac(a/3)  это дробная часть числа а деленного на 3

Answer 2

Я все же рекомендую использывать старый добрый Mod. Учителя любят прикопаться к какой-нибудь команде, которую они не объясняли.

Answer 3

с mod можно ошибиться на разных кратностях...а вот с frac точно не ошибиться...

Answer 4

У меня ошибок не возникало

Answer 5

Но Frac надежней

Answer 6

с mod запутываются когда остаток должен быть больше какого то числа, то будет кратное - именно в этом числе и ошибаются