Цитата:
Сообщение от 1234Ksu
Написать программу которая проверяет делимость длинного десятичного числа 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 - она в разных версиях Паскаля реализована по-разному. Напишите, если что.