40 БАЛЛОВ!!!!!!! В вещественном числе все четные цифры замените ** 0. Результат выведите...

Question

40 БАЛЛОВ!!!!!!!
В вещественном числе все четные цифры замените на 0. Результат выведите на экран.

Comments

вот сейчас ты начал что-то непонятное говорить

---

но если не паскаль не надо

---

))

---

почти сделал)

---

ну не томи

---

шо там

---

подправляю косяки

---

до идеала довожу)

---

готово

---

код большой получился очень

Answer 1

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var r:=ReadReal('Введите целое вещественное число');
  var s:=BigInteger(r).ToString;
  for var i:=1 to s.Length do
    if s[i] in ['2','4','6','8'] then s[i]:='0';
  r:=real.Parse(s);
  Writeln(r);
end.

Пример
Введите целое вещественное число 123456789101112
103050709101110