Составьте блок-схему и программу для решения задачи.
Найдите и выведите на экран все двузначные числа, сумма цифр которых при умножении на 3 увеличивается в 2 раза.
More Questions From This User See All
Составьте блок-схему и программу для решения задачи.
Найдите и выведите на экран все двузначные числа, сумма цифр которых при умножении на 3 увеличивается в 2 раза.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Если писать по вашему условию то будет так
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 раза..