Составьте блок-схему и программу для решения задачи.

Найдите и выведите на экран все двузначные числа, сумма цифр которых при умножении на 3 увеличивается в 2 раза.

Если писать по вашему условию то будет так

var i, a, b : integer; begin For i : = 10 to 99 do Begin a : = (i div 10) ; b : = (i mod 10) ; if (3 * (a + b)) div (a + b) = 2 then write (i, ' ') ; End; readln; end. но я что то не совсем понял, как может такое быть, если взять 1+3 = 4 * 3 = 12 ... все увел. в 3 раза ...