Предмет: Информатика,
автор: анонимно000
составить программу для определения произведения квадратов чисел 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.
Интересные вопросы
Предмет: История,
автор: zumanovasylhan568
Предмет: География,
автор: belekovanurajida
Предмет: Қазақ тiлi,
автор: ibraevdaulet2009
Предмет: История,
автор: lululi
Предмет: Математика,
автор: vito4kaaa