Переведите число 72 в двоичную, восьмеричную и шестнадцатеричную системы счисления. для каждого перевода нужно пошаговое пояснение.

1. цикл

var a,k: integer;

begin

write('введите число: ');

readln(a);

while a< > 0 do

begin

if(a mod 2 = 0) and (a mod 10 < > 8) then k: =k+1;

write('введите число: ');

readln(a)

end;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

2. массив через цикл

var a,k,i: integer;

p: array [1..1000] of integer;

begin

repeat

write('введите число: ');

readln(a);

if a< > 0 then

begin

i: =i+1;

p[i]: =a

end

until a=0;

for a: =1 to i do

if(p[a] mod 2 = 0) and (p[a] mod 10 < > 8) then k: =k+1;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.