Паскаль АВС. Программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное.
Program Alyatu; uses crt; const n=4; var i,z,s:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Используя признак делимости, программа оперделяет делится ли введённое 4-значное число на 3'); writeln('Введите число'); repeat readln (z); until ((z>0) and (z<power(10,n))); for i:=1 to n do begin s:=s+z mod 10; z:=z div 10; end; if (s mod 3=0) then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); end.
Родине - цены нет
36 34 15 24 33 16 - 46 16 33 55 33 16 42
Нет в мире краше Родины нашей
33 16 42 13 32 24 36 16 26 36 11 52 16 36 34 15 24 33 55 33 11 52 16 25
Жить - Родине служить
22 24 42 56 - 36 34 15 24 33 16 41 31 43 22 24 42 56