Дано натуральное число n. выбросить из записи все - вопрос №34271159790 от marina07102 31.12.2020 21:41

Question

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

marina07102 · 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.