Написать программу удаляющую из записи все четные цифры. Например. из числа 12345 должно получится 135

Question

Нинуха

14 апреля, 07:54

+3

Ответы (1)

Знаешь ответ?

Поликарп · Answer 1

Var

t, s:String;

i:integer;

Begin

Readln (s);

For i: = 1 to length (s) do

if i mod 2 = 0 then continue

else t: = t + s[i];

Writeln (t);

end.