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

ValiahmetovaKa ValiahmetovaKa    2   22.06.2019 03:00    1

Ответы
Panovamasha33 Panovamasha33  17.07.2020 12:46
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика