Конспект по информатике записи алгоритмов​

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.