Предмет: Информатика, автор: kamilaibragimova2706

Дано натуральное число N. Удалить из записи все четные цифры.Паскаль​

Ответы

Автор ответа: dePerson
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.

Похожие вопросы
Предмет: Русский язык, автор: AlexMansetti
Предмет: Информатика, автор: Puzikok42
1. В компьютерном классе на уроке информатики, во время отсутствие учителя, пять ребят – Максим, Настя, Саша, Рома, Сережа, – отвлеклись от нужной работы и стали играть в такие игры: пасьянс "Паук", гонки, сапер,"Марио", тетрис.
Каждый из них играл только в одну игру.
•Саша думал, что в "Марио"играет Настя.
•Настя предполагала, что Рома играет в тетрис, а Максим – в гонки.
•Рома считал, что Сережа играет в гонки, а Саша – в сапер.
•Максим думал, что Настя раскладывает пасьянс "паук", а в "Марио" играет Рома.
В результате оказалось, что все они ошиблись в своих утверждениях. Кто и во что играл?

2. В кафе встретились три друга: скульптор Белов, скрипач Чернов и художник Рыжов. "Замечательно, что у одного и нас белые, у другого чёрные, а у третьего рыжие волосы, но ни у кого цвет волос не соответствует фамилии", - заметил черноволосый. "Ты прав", - сказал Белов. Какой цвет волос у художника?
Помогите пожалуйста