Вводится целое положительное число. Найти сумму цифр и среднее арифметическое нечетных...

Question

Вводится целое положительное число. Найти сумму цифр и среднее арифметическое нечетных цифрНа Paskal

Answer 1

program raf105;

var a,b,sum,nsum,nkol:integer;

sari:real;

begin

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

readln(a);

while a<>0 do

begin

 b:= a mod 10;

 a:= (a-b) div 10;

 sum:= sum+b;

 if (b mod 2)<>0

   then  

   begin

     nsum:= nsum+b;

     nkol:= nkol+1;

   end;

end;

sari:= nsum/nkol;

writeln('Сумма всех цифр в числе: ',sum);

writeln('Среднее арифметическое нечётных цифр в числе: ',sari);

end.

Язык программирования PascalABC