Задачка в паскале, вроде как думаю правильно но получается мягко говоря хрень (... Задача собственно такая: нужно найти произведение всех двухзначных чисел, сумма цифр которых составляет 8 (например - число 53, у него 5 и 3, а 5+3=8, значит нужно запихнуть это число в произведение) и самое главное, решить это нужно с помощью while. Помогите пожалуйста!
Вопрос Помогите пожалуйста, очередное задание по паскалю...
- Автор темы Pro100smerch
- Дата начала
"Очередное" тебе? Или нам?! А нам-то за что???
Основная часть по идее будет такой: 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);
и в чем проблема? не можешь разложить число? сложить его? умножить?
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.
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.
Похожие темы
- Закрыта
- Вопрос