Построить столбчатую диаграмму​

Я думая что ты не против, что я возьми ее из своего учебника.?!

Нельзя входить в компьютерный класс без разрешения учителя;

Нельзя входить в компьютерный класс в верхней одежде, головных уборах, грязной обуви;

Нельзя приносить в класс еду напитки;

Нельзя без разрешения преподавателя включать и выключать компьютер и другие устройства;

Нельзя трогать шнуры, розетки, провода;

Следует работать на расстоянии 60—70 см от экрана монитора.

Положение при работе с компьютером должно быть таким, чтобы линия взора приходилась на центр экрана.

Не наклоняйтесь и не сутультесь при пользовании клавиатурой и при чтении с экрана монитора.

Время непрерывной работы за компьютером не должно превышать:

Нельзя класть какие-либо предметы на системный блок, монитор, клавиатуру.

program test;

var i: integer;

begin

for i:=11 to 99 do

if i=(i+i-1) div 10 + (i+i-1) mod 10 * 10 then

writeln (i-1,' ',i)

end.

36 и 37

Объяснение:

for i:=11 to 99 do - перебираем двузначные числа

(i+i-1) - вычисляем сумму двух последовательных двузначных чисел

(i+i-1) div 10 - получаем первую цифру получившейся суммы

(i+i-1) mod 10 - получаем вторую цифру получившейся суммы

(i+i-1) mod 10 * 10 - чтобы переставить цифры в сумме умножаем последнюю цифру на 10 (из единиц делаем десятки)

(i+i-1) div 10 + (i+i-1) mod 10 * 10 - переставляем цифры в получившейся сумме

if i=(i+i-1) div 10 + (i+i-1) mod 10 * 10 then - сравниваем большее из двузначных чисел с числом получившемся после перестановки цифр суммы