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

[1234Ksu]

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

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

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

 

[Vladimir_S]

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

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

Пожалуйста:

VAR
 S:String;
 N,Code:Word;
 i,dig:Byte;
BEGIN
 Writeln('Enter the long number:');
 Readln(S);
 N:=0;
 For i:=1 to Length(S) do
  begin
   VAL(S[i],dig,Code);
   N:=N+dig;
  end;
 If (N mod 3)=0 then WriteLn('Yes!') else WriteLn('No!');
 Readln
END.

Внимание! Может заругаться на процедуру VAL - она в разных версиях Паскаля реализована по-разному. Напишите, если что.