Запишем на языке паскаль программу, в которой для введённой с клавиатуры буквы на экран выводится её код. затем на экран выводится строка, представляющая собой последовательность из трёх букв используемой кодовой таблицы: буквы, предшествующей исходной; исходной буквы; буквы, следующей за исходной.

372-12=360

360: 2=180 открыток у наташи

180+12=192 открытки у даши

проверяем: 180+192=372

x+x+12=372

2x=360

x=180-наташа

12+x=12+180=192-даша

 

Pascalabc.net 3.4 begin  var (x,y): =readreal2('координаты слона (х y): ');   if not x.between(1,8) or not y.between(1,8) then begin       writeln('координата должна быть в пределах 1..8');       exit       end;   var (x1,y1): =readreal2('координаты фигуры (х y): ');   if not x1.between(1,8) or not y1.between(1,8) then begin       writeln('координата должна быть в пределах 1..8');       exit       end;   if abs(x-x1)=abs(y-y1) then writeln('можно убить')   else writeln('нельзя убить') end.

Соответствие таблиц Windows и КОИ-8:

('ё', 'Ё', 'T', 'ю', 'а', 'б', 'ц', 'д', 'е', 'ф',

('T', 'Ё', 'ё', 'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж',

'г', 'х', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п',

'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р',

'я', 'р', 'с', 'т', 'у', 'ж', 'в', 'ь', 'ы', 'з',

'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ',

'ш', 'э', 'щ', 'ч', 'ъ', 'Ю', 'А', 'Б', 'Ц', 'Д',

'Ы', 'Ь', 'Э', 'Ю', 'Я', 'а', 'б', 'в', 'г', 'д',

'Е', 'Ф', 'Г', 'Х', 'И', 'Й', 'К', 'Л', 'М', 'Н',

'е', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о',

'О', 'П', 'Я', 'Р', 'С', 'Т', 'У', 'Ж', 'В', 'Ь',

'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш',

'Ы', 'З', 'Ш', 'Э', 'Щ', 'Ч', 'Ъ');

'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я');

Объяснение: