Question

1)Найти произведение четных чисел в промежутке от 23 до 5. 2) Найти сумму двухзначных чисел кратных 7

Answer 1

 var i,s:longint;
begin s:=1; 
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
2 var i, s : integer;
begin  
s:=1;  
for i:= 14 to 98 do   
 if i mod 7 = 0 then s:=s*i; 
 writeln(s);  
readln
end.

Answer 2

1. Для нахождения произведения четных чисел в промежутке от 23 до 5, нужно перечислить все четные числа в этом диапазоне и перемножить их.

Четные числа в данном промежутке: 22, 20, 18, 16, 14, 12, 10, 8, 6.

Теперь перемножим их: 22 * 20 * 18 * 16 * 14 * 12 * 10 * 8 * 6 = 16,777,216.

Таким образом, произведение четных чисел в промежутке от 23 до 5 равно 16,777,216.

2. Для нахождения суммы двузначных чисел, кратных 7, нужно перечислить все двузначные числа, которые делятся на 7, и сложить их.

Двузначные числа, кратные 7: 14, 21, 28, 35, 42, 49, 56, 63, 70, 77, 84, 91, 98.

Теперь сложим их: 14 + 21 + 28 + 35 + 42 + 49 + 56 + 63 + 70 + 77 + 84 + 91 + 98 = 728.

Таким образом, сумма двузначных чисел, кратных 7, равна 728.