40 БАЛЛОВ!!!!!!! В вещественном числе все четные цифры замените на 0. Результат выведите на экран.
40 БАЛЛОВ!!!!!!!
В вещественном числе все четные цифры замените на 0. Результат выведите на экран.
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы