Дано трёхзначное число. определить, стоит ли в середине цифра 3. нужно написать программу в pascal

var a,b:integer;

begin

 readln(a);

 b:=a div 10;

 b:=b mod 10;

 if (b=3) then  write('Стоит 3') // Если b=3, то выводит 'Стоит 3'

 else write('Не стоит 3') // Если b не равно 3, то выводит 'Не  

                                                                                           стоит 3'

end.

Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k       for j = 1 to l               x(i, j) = rnd * 21 - 10               print using "###"; x(i, j);               print ; " ";       next j       print next i for i = 1 to l * 4 - 1       print ; "_"; next i print for n = 1 to l       for i = 1 to l - n - 1               if x(i, 2) < x(i + 1, 2) then               b = x(i, 2)               x(i, 2) = x(i + 1, 2)               x(i + 1, 2) = b               end if       next i next n for i = 1 to k       for j = 1 to l               print using "###"; x(i, j);               print " ";       next j       print next i end

Рядок 11

Объяснение:

На диаграмме три сектора, значит диапазон должен содержать 3 значения. По таблице видно, что в столбцах 4 значения, а в строках - 3, значит столбцы не подходят, а искать нужно в строках.

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

Анализируем:

9 строка: три различных значения, двух одинаковых или очень близких по величине значений нет. Не подходит.

10 строка: два одинаковых значения - 15, и третье 17, но 17 > 15, в таком случае на диаграмме был бы один большой сектор и два сектора поменьше. Не подходит.

11 строка: 56 и 57 - близкие по величине, 11 значительно меньше двух других значений в столбце. Подходит

12 строка. Все три значения разные, нет такого значения, которое бы было существенно меньше двух других. Не подходит.