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

Question

Информатика

Амвросий

4 марта, 20:01

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

+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.