Question

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

Answer 1

Объяснение:

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.

Answer 2

Конечно! Вот две программы на Pascal, реализующие ваши задачи:

1. Найти сумму четных цифр в числе:

pascalCopy code
program SumOfEvenDigits;

var
  number, digit, sum: integer;

begin
  writeln('Введите натуральное число:');
  readln(number);

  sum := 0;
  while number > 0 do
  begin
    digit := number mod 10;
    if digit mod 2 = 0 then
      sum := sum + digit;
    number := number div 10;
  end;

  writeln('Сумма четных цифр равна:', sum);
end.

2. Определить процентное отношение строчных и прописных букв к общему числу символов в тексте:

pascalCopy code
program LetterPercentage;

var
  text: string;
  lowercaseCount, uppercaseCount, totalCount: integer;
  lowercasePercentage, uppercasePercentage: real;

begin
  writeln('Введите текст:');
  readln(text);

  lowercaseCount := 0;
  uppercaseCount := 0;
  totalCount := length(text);

  for var i := 1 to totalCount do
  begin
    if text[i] in ['a'..'z'] then
      lowercaseCount := lowercaseCount + 1
    else if text[i] in ['A'..'Z'] then
      uppercaseCount := uppercaseCount + 1;
  end;

  lowercasePercentage := lowercaseCount / totalCount * 100;
  uppercasePercentage := uppercaseCount / totalCount * 100;

  writeln('Процентное отношение строчных букв:', lowercasePercentage:0:2);
  writeln('Процентное отношение прописных букв:', uppercasePercentage:0:2);
end.

Надеюсь, это поможет вам решить ваши задачи!