№1. Найти произведение четных чисел из диапазона [7;20]. Блок-схема, программа.. Created by mama3560. informatika-ru

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

July 2022 1 22 Report

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

HEuronYA 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.

0 votes Thanks 1