1.Вводится натуральное число. Найти сумму четных цифр, входящих в его состав.
2. Дан текст. Определить процентное отношение строчных и прописных букв к общему числу символов в нём.
ПРОГРАММА В ПАСКАЛЬ
— Правильный ответ на вопрос найдете ниже

Ответ:

Объяснение:

1.

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

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

var  

   n: longint;

   sum: integer;

begin

   readln(n);    

   sum := 0;

   while n > 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] >= ‘a’) and  (str[i] <= ‘z’) then

  let_s := let_s + 1

 else

  if (str[i] >= ‘A’) and  (str[i] <= ‘Z’) then

   let_b := let_b + 1;

 

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

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

writeln;

end.