Составьте блок-схему и программу для решения . найдите и выведите на экран все двузначные числа, сумма цифр которых при умножении на 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 раза..
Если писать по вашему условию то будет так
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 раза..