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

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

Задать свой вопрос
1 ответ

Объяснение:

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт