Question

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

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

Answer 1

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

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 раза..