1.Вводится натуральное число. Найти сумму четных цифр, входящих в его состав.2.

Объяснение:

1.

n - исходное число,

sum - сумма четных чисел.

var  

   n: longint;

   sum: integer;

begin

   readln(n);    

   sum := 0;

   while n gt; 0 do begin

       if n mod 10 mod 2 = 0 then

           sum := sum + n mod 10;

       n := n div 10;

   end;    

   writeln(sum);

end.

2.

str - строка;

len - количество символов в строке;

let_s, let_b - количество строчных (малюсеньких) и строчных (великих) букв.

var

str: string;

i, len, let_b, let_s: byte;

begin

readln(str);

len := length(str);

let_b := 0;

let_s := 0;

for i:=1 to len do

 if (str[i] gt;= 'a') and  (str[i] lt;= 'z') then

  let_s := let_s + 1

 else

  if (str[i] gt;= 'A') and  (str[i] lt;= 'Z') then

   let_b := let_b + 1;

writeln((let_s/len)*100:5:2);

writeln((let_b/len)*100:5:2);

writeln;

end.