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

Question

Информатика

Алинка

16 июля, 04:59

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

+1

Ответы (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.