Решите графическую : напишите все возможные двухзначные числа которые получатся с чисел 1, 3, 5 и 7.?

// для  любых  4  чисел var a,b,c,d: char; begin read(a,b,c,d); writeln (a+b); writeln (a+c); writeln (a+d); writeln (c+b); writeln (d+b); writeln (c+d); writeln (b+a); writeln (c+a); writeln (d+a); writeln (b+c); writeln (b+d); writeln (d+c); end.

Для решения примера вспоминаем, что при переходе от шестнадцатиричной системы счисления к двоичной достаточно заменить каждую шестнадцатиричную цифру четырьмя двоичными (тетрадой). предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. для дробной части незначащие нули - последние и мы будем их искать в последней тетраде. первая тетрада - представление 1(16)=0001(2). левые три нуля незначащие и их удаляем, остается 1. последняя тетрада - представление е(16)=1110(2). тут один незначащий ноль - правый, остается 111.. остальные тетрады переписываем без изменения. 12ас,6е(16)=1 0010 1010 1100 , 0110 111 (2) считаем количество нулей в записи: 9. это и есть ответ.

Const   n = 40; var   s,i,ind,k1,k2: integer;   mas: array[1..n] of integer; begin   s : = 0;   for i: =1 to n do s : = s+ mas[i];   writeln ('сумма элементов массива: ',s);     s : = 1;   for i: =1 to n do s : = s * mas[i];   writeln ('произведение элементов массива: ',s);     s : = 0;   for i: =1 to n do s : = s + mas[i]*mas[i];   writeln ('сумма квадратов элементов массива: ',s);   s : = 0;   for i: =1 to 6 do s : = s+ mas[i];   writeln ('сумма первых 6 элементов массива: ',s);     ind: =0;   repeat       writeln('введите к1: '); read(k1);       writeln('введите к2: '); read(k2);       if (k2> k1) then ind : = 1;   until (ind=1);     s : = 0;   for i: =k1 to k2 do s : = s+ mas[i];   writeln ('сумма элементов массива с k1-го по k2-й: ',s);   end.