1)Найти произведение четных чисел в промежутке от 23 до 5. 2) Найти сумму двухзначных
1)Найти произведение четных чисел в промежутке от 23 до 5. 2) Найти сумму двухзначныхчисел кратных 7
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы