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

Question

Информатика

Пашуха

21 июня, 19:42

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

+1

Ответы (1)

Знаете ответ на вопрос?

Марлен · 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.