Контрольная по информатике(1 полугодие)

Контрольная работа

№1. Функция возвращает: 654321

№2.

procedure DecToP(n,p:integer);

begin

  var s:='';

  while n>0 do begin

    s:=n mod p+s;

    n:=n div p

    end;

  Writeln(s)

end;

 begin

  var (n,k):=ReadInteger2('Введите число и основание системы счисления:');

  if k.Between(2,10) then DecToP(n,k)

  else Writeln('Основание системы счисления вне [2;10]');

end.