Работа с переводом чисел Опции

[Гость_Ирина]

Ввести последовательность символов представляющих собой запись числа в системе счисления P. Кол-во N вводимых символов (разрядность исходного числа) определяется вариантом. Требуется перевести это число в десятичную систему счисления и определить кратно ли оно М (величина М определяется вариантом). Вывести на печать (writeln) число в исходной десятичной системе счисления. Если число кратно М , то напечатать TRUE , в противном случае напечатать FALSE.

Вариант работы : N = 3; P = 13; M = 9;

Помогите пожалуйста, завтра уже здавать!!! :molitva:

Пример прилогавшийся к программе....

Код

program cc(input , output);
uses crt;
var  S : char;
    I , M : integer;
begin
write ('=>');
M:=0;
for i:=1 to 3 do
begin
read (s);
write (s);
if (s>='0') and (s<='0') then
M:=M*16+ORD (S) - ORD (0)
else
M:=M*16+ord (s) - ORD (0) + 10
end;
writeln ('chislo v desjatichnoj siteme : ' , M:5);
readln;
end.

По правде говоря я очень плохо разбераюсь в програмировании , поэтому обратилась к вам за помощью...

Сообщение отредактировано: volvo - 13.12.2004 21:08

[volvo]

Гость_Ирина
В задаче использована функция перевода числа из одной с/с в другую, описанная в ФАКе...

Код

uses crt;

Function ToDec(s: String;
        radix: LongInt): LongInt;
 Const
   Digit: String[16] = '0123456789ABCDEF';
 Var
   m, i: LongInt;
 Begin
   m := 0;
   While s[1] = '0' Do Delete(s, 1, 1);
   For i := 1 To Length(s) Do
     m := m * radix + Pos(s[i], Digit) - 1;
   ToDec := m
 End;


Const
 n = 3;
 m = 9;
 p = 13;

Var
 i: Byte;
 s: String;
 ch: Char;

Begin
 s[0] := Chr(n);
 Write('=>');
 For i := 1 To n Do
   Begin
     ch := ReadKey; Write(ch);
     s[i] := ch
   End;
 ReadLn;

 WriteLn((ToDec(s, p) mod m) = 0)
End.