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

1

Ответы и объяснения

2013-10-05T19:31:14+04:00
Program kratno3;
var a:integer;
begin
readln(a);
if (a mod 3 = 0) then writeln(' Число ',a,' кратно 3!')
else writeln(' Число ',a,' не кратно 3!');
end.