===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
3*16*32 = 2^9 * 3 = 512*3 = 1536 байт
1536/1024 = 1.5 Кбайт
Не знаю как здесь отрицание поставить красиво, так что примем его за корень.
=
Так как высказывание будет истинно на интервале или же
(что то же самое) ,
То наименьшее НАТУРАЛЬНОЕ число, при котором оно будет ложно, будет равно 6( так как (3корня из 3) приблизительно равно 5,1)
Ответ: 6
Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>