Составить программу для определения произведения квадратов чисел 1,3,5.........15 (оператор for)

1

Ответы и объяснения

2013-02-26T11:00:24+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.