Question

Помогите,пожалуйста
Нужно составить в Паскале

Answer 1

Ответ:

pascal

Объяснение:

var n, s, k:integer;

begin

 Write('Введите число: ');

 ReadLn(n);

 while n > 0 do

 begin

   if (n mod 2 = 1) then s := s + n mod 10 else k:=1;

   n := n div 10;

 end;  

 if k > 0 then WriteLn(s) else WriteLn('0');

end.