В паскале составить программу:

определить делимость на 3 для четырехзначного числа.

(думаю, что надо использовать св-во делимости числа: число будет делиться на 3, если сумма цифр этого числа будет делиться на три)

var

a: 1000 ... 9999;

a1, a2, a3, a4: 0 ... 9; / / Цифры четырехзначного числа

begin

writeln ('Введите четырехзначное число') ;

readln (a) ;

a1: = a div 1000;

a2: = (a mod 1000) div 100;

a3: = (a mod 100) div 10;

a4: = a mod 10;

if (a1 + a2 + a3 + a4) mod 3 = 0 then writeln (a, ' делится на 3')

else writeln (a, ' не делится на 3') ;

end.