Найти все пятизначные числа

[dubailand]

Выдать на экран все пятизначные числа, сумма которых - четное число, а среднее число - нет.

З.Ы. Необходимо использовать циклы.

[unbanned]

поставь цикл от 10000 до 99999
делишь число нацело сначала на 10000 получаешь первую цифру... потом на 1000 получаешь вторую и т.д.
потом складываешь цифры, проверяешь на четность сумму и проверяешь на нечетность 3ю цифру... если да, то выводишь чило...

for i:=10000 to 99999 do begin
c1:= i div 10000;
c2:=(i mod 10000) div 1000;
...
s:=c1+c2+c3+c4+c5;
if (s mod 2 = 0) and (c3 mod 2<>0) then writeln(i);
end;

[Grag]

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

проверяешь на нечетность 3ю цифру... если да, то выводишь чило...

Чушь полнейшая...
По твоему разумению нужно проверить лишь вот это
ХХ1ХХ
ХХ3ХХ
ХХ5ХХ
ХХ7ХХ
ХХ9ХХ
и всего то...
Под средним имеется ввиду среднее арифметическое суммф цифр из которых состоит число...
Хотя как знать, может ты и прав... ТС как-то косяво задание написал...

[Hacker19_90]

можно ещё что бы не вытаскивать цифры из числа пустить пять счётчиков(циклов)!
и использовать индексы!

[dubailand]

unbanned прав.
проверить на нечетность среднее число, не арифметическое.
Но это не то, что я имел ввиду под циклами.

var
i,k,g,t,r,a,b:integer;
begin
     for i:=11222 to 11222 do
         begin
              k:=0;
              t:=1;
              for g:=1 to 5 do
                  begin
                       r:=i div t mod 10;
                       t:=t*10;
                       write(r, ',')
                  end;
         end;
         writeln;
end.

основное это:
for g:=1 to 5 do
                  begin
                       r:=i div t mod 10;
                       t:=t*10;

но я не знаю как найти сумму, используя этот код

[Grag]

Ну так ты цифры с числами не путай, умник... А то задания раздаешь, сам не понимая что пишешь...

[unbanned]

const
  c: array [1..8] of integer = (10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000);

var
  n, i, j, l, k: integer;
  m: array [1..9] of real;

begin
  write('введите число:');
  readln(n);
  j := n;
  i := 0;
  while n > 0 do 
  begin
    n := n div 10;
    i := i + 1;
  end;
  l := i;
  k := l;
  while l > 1 do 
  begin
    m[l] := j div c[l - 1];
    j := j mod c[l - 1]; 
    if l = 2 then m[l - 1] := j;
    l := l - 1;
  end;
  for i := 1 to k do 
    writeln(m[i]:1:0);
end.

вот нашел код у себя... че-то бредовое но, проверил вроде работает
короч вводишь число выводит все его цифры...

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

for i := k downto 1 do 
    writeln(m[i]);

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

[dubailand]

Код, предложенный unbanned

for i:=10000 to 99999 do begin
c1:= i div 10000;
c2:=(i mod 10000) div 1000;

я заменяю
 for g:=1 to 5 do
                  begin
                       r:=i div t mod 10;
                       t:=t*10;
                       write(r, ',')
                  end;

я раскладываю на отдельные числа, но как получить сумму. Сможет кто-нибудь объяснить?

[unbanned]

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

Код, предложенный unbanned

я раскладываю на отдельные числа, но как получить сумму. Сможет кто-нибудь объяснить?

создай переменную и плюсуй r...

s:=0; 
for g:=1 to 5 do
                  begin
                       r:=i div t mod 10;
                       t:=t*10;
                       write(r, ',')
                       s:=s+r;         
  end;

ты считаешь это рабочий код для данной задачи?

[dubailand]

Да, всем спасибо.Чет не додумался до этого! спасибо за помощь.