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

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

Ввести последовательность символов представляющих собой запись числа в системе счисления 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