Юрий
4 год назад
Написать программу удаляющую из записи все четные цифры. Например. из числа 12345 должно получится 135
ОТВЕТЫ
Norris Donald
Oct 24, 2020
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.
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.
778
Смежные вопросы: