№1. найти произведение четных чисел из диапазона [7; 20]. блок-схема, программа.

12R34O56M78A 12R34O56M78A    1   31.05.2019 09:40    3

Ответы
goodblood197 goodblood197  01.10.2020 15:41
Var i,s:integer;
begin
s:=1;
for i:=7 to 20 do
if i mod 2 = 0 then s:=s*i;
writeln (s);
end.


№1. найти произведение четных чисел из диапазона [7; 20]. блок-схема, программа.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика