Результативность<span> (конечность) — алгоритм должен приводить к решению задачи за конечное число шагов.</span>
1 слово череп
2 юла
вот так !!!!!!!!!!!!!!
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
1. 71*35*50*(на "вес" одного символа, которое в задании не указывается)
результат разделить на 1024 получатся Килобиты, еще на 8 Килобайты. Пишите, пожалуйста, полностью
2. 1 байт на символ. 14 символов.
отв: 14 байт
//V = (100 -2*h)*(100 -2*h)*h
const L = 100;
var V1, V2,h :real;
begin
v1:= 0; v2:=1; h:=10;
while (v2 - v1) >0 do
begin
v1 := (100 - 2* h)* (100 - 2* h)*h;
h := h +0.5;
v2 := (100 - 2* h)* (100 - 2* h)*h;
writeln('Высота = ', h , ', Объем ', v1);
end;
writeln('Высота = ', h , ', Максимальный объем ', v1);
<span>end.</span>