Задача-Паскаль. Длинная арифметика.

[Soko123]

Написать программу которая проверяет делимость длинного десятичного числа n нa 3.

Прошу помочь решить)

[MoBLer]

Длинная арифметика тут не используется. если сумма чисел делится на 3, то и число делится на 3.

[Soko123]

кажется, должно быть примерно так , только вместо умножения набрать деление, в конце программы. нет?Отсканировано 24.05.2011 21-19_000.jpg

[MoBLer]

незнаю, я бы делал так

var
s:string;
i,k,z,x:integer;
begin
k:=0; z:=0;
readln(s);
for i:=1 to length(s) do
begin
val(s[i],k,x);
z:=z+k;
end;
if z mod 3= 0 then writeln('делится')  else
writeln('не делется');

readln;
end.