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

1234Ksu · 24.05.2011, 20:24

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

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

Vladimir_S · 24.05.2011, 21:17

Цитата:

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

24.05.2011, 20:24	#1 (permalink)
1234Ksu Новичок Регистрация: 24.05.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача-Паскаль. Длинная арифметика. Написать программу которая проверяет делимость длинного десятичного числа n нa 3. Прошу помочь решить)

24.05.2011, 20:24
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Тема которую вы создали очень схожа с другими темами нашего форума Задача про стоки, Паскаль Паскаль. Задача о сторожах Паскаль. Задача об элементах вектора Задача, Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070