Question

Помогите пожалуйста написать программу! Найти сумму чётных чисел в интервале от А до В ( А и В - натуральные числа, А< В).

Answer 1

uses Crt;
 var a, b, temp, i, S:integer;
 begin
 ClrScr;

 Write (' a = ');   ReadLn(a);
 Write (' b = ');   ReadLn(b);
 S:=0;
 i:=a;
 while i<=b do
   begin
     if (i mod 2 = 0) then S:=S+i;
     i:=i+1;
   end;
 WriteLn(' S = ', S);
 ReadLn;
 end.

Answer 2

Var a,b,i,sum: integer; 
begin 

write ('Введите границы интервала: ');

read (a,b); 

for i:= a to b do 

if i mod 2 = 0 then sum:=sum + i;

writeln ('Сумма четных чисел в интервале от А до Б = ',sum);

end.

Answer 3

Конечно, вот пример программы на языке Python, которая находит сумму четных чисел в заданном интервале от A до B:

pythonCopy code
# Запрашиваем у пользователя значения A и B
A = int(input("Введите значение A (натуральное число): "))
B = int(input("Введите значение B (натуральное число, больше A): "))

# Инициализируем переменную для хранения суммы четных чисел
sum_of_evens = 0

# Перебираем числа от A до B
for num in range(A, B + 1):
    # Проверяем, является ли текущее число четным
    if num % 2 == 0:
        # Если число четное, добавляем его к сумме
        sum_of_evens += num

# Выводим результат
print(f"Сумма четных чисел в интервале от {A} до {B} равна {sum_of_evens}")

Просто скопируйте этот код в среду программирования на Python и выполните его. Программа попросит вас ввести значения A и B, а затем выведет сумму четных чисел в заданном интервале. Убедитесь, что введенные значения A и B соответствуют указанным условиям (A < B и оба числа натуральные).