Вопрос Помогите пожалуйста, очередное задание по паскалю...

[Pro100smerch]

Задачка в паскале, вроде как думаю правильно но получается мягко говоря хрень (... Задача собственно такая: нужно найти произведение всех двухзначных чисел, сумма цифр которых составляет 8 (например - число 53, у него 5 и 3, а 5+3=8, значит нужно запихнуть это число в произведение) и самое главное, решить это нужно с помощью while. Помогите пожалуйста!

 

[zinger]

"Очередное" тебе? Или нам?! А нам-то за что???

 

[frdhds]

Основная часть по идее будет такой: ch:=10; mn:=1; while ch<100 do begin if ((ch mod 10)+(ch div 10))=8 then mn:=mn*ch; ch=ch+1; end; writeln (mn);

 

[BRAVO_TOP_moi]

и в чем проблема? не можешь разложить число? сложить его? умножить?

 

[fdgfdgfg]

var x,p:integer; begin x:=10; p:=1; while x<100 do begin if (x div 10) + (x mod 10)=8 then p:=p*x; x:=x+1 end; print(p) end.

 

[gyal13]

var i, p: Int64; begin p:=1; i:=1; while i <= 8 do begin p:=p*(i*9+8); inc(i); end; writeln (p); end.