Задание

Задача: Дано натуральное десятичное число N. Выполнить перевод в систему счисления с основанием p (1<p<10).

Выберите те операторы, которые необходимы для решения данной задачи.

var k, p, Np, N10: integer;

var Np, N10: real;

begin

Read(N10);

Read(p);

Read(k);

k := 1; Np := 0;

Np := 0;

while N10 > 0 do

begin

Np := Np + (N10 mod p) * k;

k := k * 10;

N10 := N10 div p;

end;

k := N10 mod p;

end;

Write('N', p, ' = ', Np)

Write(k)

end.