5-ти значное число

[Frasher]

ув, форумчани, буду очень благодарен за помощ:

ввести 5-значное число парные числа прибавить а непарные умножить


заранее благоданен

[D@rkD@iver]

ввести 5-значное число парные числа прибавить а непарные умножить
что это за бред?
написал бы условие нормально

[Frasher]

ну, как бы
нужно ввести пятизначное число,
а програма должна вычислить 5 цыфр из етого числа, и узнать какие из них парные, а какие непарные... потом непарные умножить друг на друга, а парные прибавить

[D@rkD@iver]

а что именно не получается?
1) создаешь массив int mas[10];- i-ый элемент- кол-во цифры i в числе
2) заполняешь массив (делишь число на 10 в цикле)
3) если mas[i]- четное то парная цифра
вот и все

[Frasher]

чесно говоря, у меня пока ничего не получается)
что б узнать парное или не парное я знаю как мод\див
но как собрать в одну кучу парные, а в другую непрарные... без понятия

[Stilet]

Предлагаю введя число преобразовать его в строку - получится массив символов.

var i:integer;s:string;
begin
 readln(i);str(i,s);
end;

или вообще банально - вводить прямо в строку.
а вот насчет парные-непарные это я тоже не совсем понял

[D@rkD@iver]

зачем теб в кучки собирать сразу умножай и складывай да и все

[Frasher]

а разве ето возможно?)
если даже и возможно, не представляю себе как
помогите пожалуйста, я не понимаю
кто-еибудь может решить ето задание?)))) я уверен что может...

[D@rkD@iver]

как ты будешь разбивать число на цифры?

[Mad_Cat]

хех)

read(x);
s:=0;
p:=1;
while x<>0 do
begin
if x mod 10<>0 then begin
 if odd( x mod 10) then p:=p*(x mod 10)
 else s:=s+x mod 10;
 x:=x div 10
end;