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

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

Comments

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

---

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

---

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

---

Но Frac надежней

---

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