Срочно! Задача в Pascal. Условие:По введенному числу и основанию системы счисления определить существует ли такое число

1

Ответы и объяснения

Лучший Ответ!
  • Sky09
  • профессор
2013-12-30T10:08:32+00:00
Uses crt;
var x,y,k: integer;
begin
     k:=0;
     write('Введите число: ');
     readln(x);
     write('Введите основание системы счисления: ');
     readln(y);
     while x>0 do
     begin
          if x mod 10=y then inc(k);
          x:=x div 10;
     end;
     if k>0 then writeln('Такого числа в этой системе не существует')
     else writeln('Такое число существует в данной системе счисления');
end.