Составьте программу, которая определяет: а) код введённого с клавиатуры символа (Пример: W– 87)б) символ по введённому с клавиатуры кода ( Пример: 200– И)​ Обязательно Pascal ABC!

begin

 var symbol := ReadChar('Введите символ:');

 Println('ASCII:', Ord(symbol));

end.

var

 Numbers: array [1..6] of integer;

 x, summ12, summ56, countN, r : integer;

begin

 for var i := 100000 to 999999 do begin

   // берем каждое число от 100000 до 999999

   x := i;

   for var j := 1 to 6 do begin

   

     // mod - получаем остаток от деления X на 10

     // например для 12345.6 остаток от деления - 6

     Numbers[7 - j] := x mod 10;

     

     //записываем цифры в обратном порядке (справа налево), поэтому [7 - j]

     

     // div - получаем целую часть числа от деления X на 10  

     // например, для 1234.5 целая часть - 12345

     x := x div 10;

     // теперь X будет на 1 разряд меньше (например X = 12345)

     

     // делим 6 раз X на 10

     // например (1) 12345.[6] => (2) 1234.[5] => (3) 123.[4] => (4) 12.[3] => (5) 1.[2] = > 0.[1]

   end;

   

   // считаем суммы двух первых и последних

   summ12 := Numbers[1] + Numbers[2];

   summ56 := Numbers[5] + Numbers[6];

   

   //  и разницу между суммами

   r := summ12 - summ56;

   //  разница может быть 5 или -5

   //  abs() - возвращает модуль числа

   //  приводим разницу в положительное число

   

   // если разница не более 5, то число счастливое

   if(abs(r) <= 5) then countN := countN + 1;

 end;

 

 writeln('Количество счастливых чисел: ', countN);

end.

Объяснение:

для PascalABC

это задача под номером 2

Получив цифры с

x mod y

x div y

можно (для других задач) изменить расчет суммы и условие счета количества

program sorting;

const

 N = 10;

var

 v: array[1..N] of integer;

 d: integer;

 i, t: integer;  

 k: boolean;  

begin

 randomize;

 write('ДО сортировки:    ');

 for i := 1 to N do

 begin

   readln(v[i])

   write(v[i]:6);

 end;

}  

 d := N div 2;

 while(d > 0) do

 begin

   k := true;  

   while k do

   begin

     k := false;

     i := 1;

     for i := 1 to N - d do

     begin

       if(v[i] > v[i + d]) then

       begin

         t := v[i];

         v[i] := v[i + d];

         v[i + d] := t;

         k := true;

       end;

     end;

   end;    

   d := d div 2;

 end;

 writeln;

 write('ПОСЛЕ сортировки: ');

 for i := 1 to N do

   write(v[i]:6);

 writeln;

end.