Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Чётные числа с массивом

Автор: Warfire 22.12.2009, 18:55

Ввести число(Например:1324894) и все чётные числа в нём заменить на 0.
получится: 1300090.

Автор: volvo877 23.12.2009, 11:59

Цитата(Warfire @ 22.12.2009, 17:55

)

и все чётные числа в нём заменить на 0

Не числа, а цифры... Здесь массивы не нужны ни разу...

Код

var
  n, res, scale: longint;

begin
  n := 1324894; { readln(n); }
  res := 0; scale := 1;
  while n > 0 do begin
    if odd(n mod 10) then res := res + scale * (n mod 10);
    scale := scale * 10; n := n div 10;
  end;
  writeln(res);
end.

Автор: Warfire 6.1.2010, 19:02

Cпc!