VPF::Чётные числа с массивом - Форум программистов

Warfire

Дата 22.12.2009, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 18.11.2009

Репутация: нет
Всего: нет

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

volvo877 (Online)

Дата 23.12.2009, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(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.

Это сообщение отредактировал(а) volvo877 - 23.12.2009, 12:00

Warfire

Дата 6.1.2010, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 18.11.2009

Репутация: нет
Всего: нет

Cпc!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »