Как найти сумму четных цифр в паскале

Объяснение:

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.

Вы зашли на страницу вопроса Найти сумму чётных цифр числа) Помогите пожалуйста) Решить в паскале?, который относится к
категории Информатика. По уровню сложности вопрос соответствует учебной
программе для учащихся 5 — 9 классов. В этой же категории вы найдете ответ
и на другие, похожие вопросы по теме, найти который можно с помощью
автоматической системы «умный поиск». Интересную информацию можно найти в
комментариях-ответах пользователей, с которыми есть обратная связь для
обсуждения темы. Если предложенные варианты ответов не удовлетворяют,
создайте свой вариант запроса в верхней строке.

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чисел.

Решение:

В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Суммируем: То что было в сумме плюс очередной элемент.

Var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
    read(a);
    sum:= sum + a;
  end;
Writeln(sum);
end.

Нахождение СУММЫ чисел КРАТНЫХ 4.

Задача 2

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чисел, кратных 4.

Решение:

В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент кратный 4, то мы суммируем: то что было в сумме плюс наш элемент.

var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
  read(a);
  if a mod 4 = 0
     then sum:= sum + a;
  end;
  Writeln(sum);
end.

Нахождение СУММЫ чисел, ОКАНЧИВАЮЩИХСЯ на 2.

Задача 9

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.

Решение:

Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который оканчивается на 2 то мы суммируем: то что было в сумме плюс наш элемент.

var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
    read(a);
    if a mod 10 = 2 then
      sum:= sum + a;
  end;
  Writeln(sum);
end.

Нахождение СУММЫ чётных чисел.
Задача 3

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чётных чисел.

Решение:

Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался чётный элемент (остаток от деления на 2 равен нулю), то мы суммируем: то что было в сумме плюс наш элемент.

var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
    read(a);
    if a mod 2 = 0 then
      sum:= sum + a;
  end;
  Writeln(sum);
end.

Задачи из реального экзамена ЕГЭ по информатике 20.06.22 (Часть 1)

Function sq(var x1,y1,x2,y2,x3,y3: real):real;
<span>begin
</span><span>// вычисляем площадь треугольника с помощью 
</span><span>// векторного произведения 
</span><span>  sq:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
</span><span>end;
</span><span>// основная программа
</span><span>var x,y,x1,y1,x2,y2,x3,y3,x4,y4,st,sp:real;
</span><span>begin
</span><span>  write(‘координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел:  ‘);
</span><span>  readln(x1,y1,x2,y2,x3,y3,x4,y4);
</span><span>  sp:=2*sq(x1,y1,x2,y2,x3,y3);
</span><span>  write(‘координаты точки x y через пробел:  ‘); readln(x,y);
</span><span>  st:=sq(x1,y1,x2,y2,x,y) + sq(x2,y2,x3,y3,x,y) +
</span><span>        sq(x3,y3,x4,y4,x,y) + sq(x4,y4,x1,y1,x,y);
</span><span>  if abs(sp-st)<1.0e-9 then
</span><span>     writeln(‘точка принадлежит прямоугольнику’)
</span><span>  else writeln(‘точка не принадлежит прямоугольнику’);   
</span><span>end.

</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел:  1 4 6 9 9 6 4 1
<span>координаты точки x y через пробел:  </span><span>4 7
</span><span>точка принадлежит прямоугольнику

</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел:  1 4 6 9 9 6 4 1
<span>координаты точки x y через пробел:  </span><span>1.5 1.6
</span><span>точка не принадлежит прямоугольнику

</span>