Блог учителя Информатики

Решение задачи ExamBegin8


Условие задачи:

На вход в первой строке подается целое число D (2 ≤ D ≤ 9), а во второй строке — текст, изображающий запись целого положительного числа A в системе счисления с основанием D. Вывести число A в десятичной системе счисления.


uses PT4Exam;

var
  a, num, k, m: integer;
  b: string;

begin
  Task('ExamBegin8');
  Readln(a);
  Readln(b);
  num := 0; m := 1;
  while length(b) > 0 do
  begin
    k := StrToInt(Copy(b, length(b), 1));
    Delete(b, length(b), 1);
    num := num + k * m;
    m := m * a;
  end;
  Write(num);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий