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

кобра453 кобра453    1   09.03.2019 20:00    3

Ответы
lara1906 lara1906  24.05.2020 12:17

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;   

  end;

  writeln(res);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика