Прогоном.
a=3 => x больше 64 и не более 511 (первое число, при котором с условием x mod 8>0 цикл запускается 3 раза и 511 последнее из таких чисел)
сам искомый иск наименьший = 106
Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
writeln('p = ',p);
end.
Пример:
n = 5
p = 3.06944444444444
Смотри вложение, там написан рабочий код.
Если будут вопросы - пиши. Все объясню ;)
1)
uses crt;
var chislo,summa,proiz:integer;
begin
clrscr;
Readln(chislo);
summa:=(chislo div 10) + (chislo mod 10);
proiz:=(chislo div 10) * (chislo mod 10);
Writeln('<span>сумма:',summa:6:2);
</span>Writeln('<span>произведения </span>:',proiz:6:2);
end.
2)
var chislo:integer;
begin
Readln(chislo);
chislo:=(chislo div 10)+(chislo mod 10)*10;
Writeln(chislo);
end.
1. Удачное ценообразование.
<span>2. Контроль качества продукции. </span>
<span>3. Контроль ассортимента продукции. </span>
<span>4. Предложение сервисных услуг. </span>
<span>5. Проведение разнообразных маркетинговых акций. </span>
<span>6. Удачное расположение отдела и товара. </span>
<span>7. Эффективная реклама. </span>