добуток цифр задано три цифрове число визначити добуток його цифр Вхідні дані одне додотнє число n вихідні дані вивести добуток числа іііііть мені зараз це треба здати​

1Найдите значение выражения 8F – 80 в шестнадцатеричной системе счисления. В ответе запишите вычисленное значение в десятичной системе счисления.

Решение.

Переведём число 8F16 из шестнадцатеричной в десятичную систему счисления:

8F16 = 14310.

Переведём число 8016 из шестнадцатеричной в десятичную систему счисления:

8016 = 12810.

Найдём разность: 143 − 128 = 15.

2

Найдите значение выражения 1116 + 118 : 112. ответ запишите в двоичной системе счисления.

Решение.

Переведем все числа в десятичную систему счисления, выполним действия и переведем результат в двоичную систему счисления:

1116 = 16 + 1 = 1710,

118 = 8 + 1 = 910,

112 = 2 + 1 = 310,

17 + 9 : 3 = 17 + 3 = 2010,

20 = 16 + 4 = 10100 и маленькая два вместе с ответом

3

Вычислите значение выражения B916 − 2718. В ответе запишите вычисленное значение в десятичной системе счисления.

Ре­ше­ние.

Пе­ре­ведём числа в де­ся­тич­ную си­сте­му счис­ле­ния:

B916 = 18510

2718 = 18510

Найдём раз­ность: 185 − 185 = 0.

ответ дай лучшего ответа

// PascalABC.Net 3.0, сборка 1066
const
  s1='АБВГабвг';
  s2='12341234';
var
  c:char;
  i:integer;
begin
  Write('Введите букву класса: '); Readln(c);
  i:=Pos(c,s1);
  if i>0 then begin
    c:=s2[i];
    case c of
    '1':Writeln('гимназический');
    '2':Writeln('математический');
    '3':Writeln('обычный');
    '4':Writeln('коррекционный')
    end
  end
  else Writeln('Неверная буква')
end.

Тестовое решение:
Введите букву класса: Б
математический

Примечание: работа программы также проверена в Borland Pascal 7.01