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

Question

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

Answer 1

Program kratno3;
var a:integer;
begin
readln(a);
if (a mod 3 = 0) then writeln(' Число ',a,' кратно 3!')
else writeln(' Число ',a,' не кратно 3!');
end.