составить программу для определения произведения квадратов чисел 1,3,5.........15 (оператор for)
Ответы
Ответ дал:
0
var
i,s:integer;
Begin
s:=1;
for i:= 1 to 15 do
if i mod 2=1 then s:=s*i*i;
writeln(s);
End.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад