Дано натуральное число n. выбросить из записи все - вопрос №160133 от dachapetruchka 08.11.2020 23:28

Question

Информатика: Дано натуральное число n. выбросить из записи все чётные числа. например: дано: 34271 получили: 371

dachapetruchka · Answer

var n,i,l:integer;

res:real;

Begin

read(n);

while n>0 do begin

i:=n mod 10;

n:=n div 10;

if i mod 2 <> 0 then begin

res:=res+i*exp(l*ln(10));

l:=l+1;

end;

writeln(res);

End.