Question

Перевести трехзначное восьмеричное число в десятичную систему счисления.
Паскаль!

Answer 1

Программа без проверки правильности ввода:
var a,b:integer;
begin
write('Введите восьмеричное число: ');
readln(a);
b:=(a div 100)*8*8+(a div 10 mod 10)*8+(a mod 10);
writeln(a,'(8) = ',b,'(10)');
end.

Пример:
Введите восьмеричное число: 724
724(8) = 468(10)

Answer 2

Спасибо большое!