1. с клавиатуры вводится целое положительное (может быть равно 0) число а, не превышающее 30 000. напиши программу, которая считает и выводит на экран сумму цифр числа а.

2. с клавиатуры вводится целое положительное (может быть равно 0) число с, не превышающее 30 000. напиши программу, которая считает и выводит на экран количество нечётных цифр числа с.

1)

var

A,s: integer;

begin

 writeln ('Ведите А: ');

 readln(A);

 if A>30000 then

   begin

   writeln ('Ошибка. А больше 30000');

   end

 else

   begin

   s := 0;

 while a > 0 do

 begin

   s := s + A mod 10;

   A := A div 10;

 end;

 writeln(s);

 end;

end.

2)

var

C,index,i: integer;

begin

 writeln ('Ведите C: ');

 readln(C);

 if C>30000 then

   begin

   writeln ('Ошибка. C больше 30000');

   end

 else

   begin

   for i:=0 to C do begin

     if(i mod 2) = 0 then

       else begin

         index:=index+1;

         end

     end

 end;

 writeln (index);

end.

PascalABC.NET

-1-

begin

 var n := ReadInteger;

 var s := 0;

 while n > 0 do

   (s, n) := (s + n mod 10, n div 10);

 s.Print

end.

-2-

begin

 var n := ReadInteger;

 var k := 0;

 while n > 0 do

 begin

   if Odd(n mod 10) then

     k += 1;

   n := n div 10;

 end;

 k.Print

end.