Форум » Циклы и ветвления » ege 22 №191 » Ответить
ege 22 №191
elpov06: Здравствуйте, не могу программой подобрать ответ, помогите пожалуйста Подставляла различные диапазоны и не выводит все равно [pre2]var x, a,b,i,t, L, M: longint; begin for i:=10 to 100000 do begin x:=i; x := (x-x mod 8) * 10; a := 1; b := 0; while x > 0 do begin if x mod 2 <> 0 then a := a * x mod 4 else b := b + (x mod 4); x := x div 8; end; if (a=9) and (b=5) then begin writeln(i); end; end; end. [/pre2]
Ответов - 2
OlgaChe1: Ну нет таких чисел! Ответ 0.
elpov06: Большое спасибо!!!!!
полная версия страницы