Составить программу на паскале для получения таблицы умножения в шестнадцатеричной системе счисления с использованием типа переменной char, оператора case и функции chr(z1+48) - для получения символьного значения цифры от 0 до 9 (где z1 – переменная для первой цифры произведения)

219

440

Посмотреть ответы 2

Ответы на вопрос:

grenzygaming

Информатика

4,5(74 оценок)

Var a,b: integer; c,h: char; begin for b: = 1 to 15 do begin for a: = 1 to 15 do begin case (a*b) mod 16 of 0: h: ='0'; 1..9: h: =*b)mod 16)+48); 10: h: ='a'; 11: h: ='b'; 12: h: ='c'; 13: h: ='d'; 14: h: ='e'; 15: h: ='f'; end; case (a*b)div 16 of 0: c: ='0'; 1..9: c: =*b)div 16)+48); 10: c: ='a'; 11: c: ='b'; 12: c: ='c'; 13: c: ='d'; 14: c: ='e'; 15: c: ='f'; end; write(c+h,' ') end; writeln end end.