последовательность чисел. Паскаль

[sllh_111]

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

Только последовательность чисел вводим сами, а вывод - одно число(кол. чисел^).

язык прогр. - Паскаль.

[RUSt88]

пиши, есть готовая программа на паскале, отдам за дешево

[Grag]

Сообщение от sllh_111

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

Только последовательность чисел вводим сами, а вывод - одно число(кол. чисел^).

язык прогр. - Паскаль.

Готов решить Вашу задачу.

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[sllh_111]

увы нет web mani кошелька

[RUSt88]

а кто говорил про кошельки?
мы работаем просто, вся инфа по мылу

[Grag]

Сообщение от RUSt88

а кто говорил про кошельки?
мы работаем просто, вся инфа по мылу

А бабло тож мылом???

[RUSt88]

А бабло тож мылом???

ирония здесь неуместна, есть множество легких способов оплатить работу удаленно, при этом используя всего лишь банкомат, находящийся рядом с вашим домом

[Grag]

Сообщение от RUSt88

ирония здесь неуместна, есть множество легких способов оплатить работу удаленно, при этом используя всего лишь банкомат, находящийся рядом с вашим домом

Ну, если обидел, извини, плиз!

[sllh_111]

без обид, но эта работа и 30 рублей не стоит, так зачемже столько мороки с этими банкоматами?

програмка вот, только надо чтобы она находила числа из последовательности, которые пользователь вводит с клавиатуры!
пример последовательности: 1002 2222 2444 2131 и так далее...

Получить все четырёхзначные числа, у которых все цифры нечётные. 
uses crt; 
var k,i1,i2,i3,i4,i5,fl:longint;
    mm:array[1..4]of longint;
 begin
  clrscr;
   for i1:=1 to 9 do
    for i2:=0 to 9 do
     for i3:=0 to 9 do
      for i4:=0 to 9 do
       begin
        mm[1]:=i4;
        mm[2]:=i3;
        mm[3]:=i2;
        mm[4]:=i1;
        fl:=0;
        for i5:=1 to 4 do
         if mm[i5] mod 2=0 then fl:=1;
        if fl=0 then begin write(i4,i3,i2,i1,' ');inc(k); end;
       end;
    write(' кол-во:',k);

  readln;
 end.

[Google2010]

но эта работа и 30 рублей не стоит

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