Предмет: Информатика,
автор: kamilaibragimova2706
Дано натуральное число N. Удалить из записи все четные цифры.Паскаль
Ответы
Автор ответа:
1
Ответ:
var
a,b,i,t,err:integer;
s,s1:string;
begin
t:=0; err:=0; s1:='';
readln(a);
str(a,s);
for i:=1 to length(s) do
begin
val(s[i],t,err);
if t mod 2 <>0 then s1:=s1+s[i];
end;
val(s1,b,err);
writeln(b);
end.
Похожие вопросы
Предмет: Русский язык,
автор: 13у
Предмет: Русский язык,
автор: lugov14
Предмет: Русский язык,
автор: AlexMansetti
Предмет: Информатика,
автор: Puzikok42
Предмет: Математика,
автор: Kanek1Ken