//PascalABC.Net 3.2.0.1467
begin
var h := ReadlnReal('Высота =');
var w := ReadlnReal('Ширина =');
var l := ReadlnReal('Длина =');
Println('Площадь поверхности = ', 2 * (w * h + w * l + h * l));
end.
всего 5,я написал так мало просто тороплюсь получи 5
Экспоненциальная форма числа используется для записи очень больших или очень маленьких чисел.
Язык C:
m=0; //кол-во отриц. элементов
proizv=1; //произвед отриц элементов
for(i=0; i<9; i++)
{
if (b[i]<0)
{ m++;
proizv=proizv*b[i];
}
}
Program Rinok;
<span>Const x0=0;</span>x1=5;
Var s,w: integer;
begin
Randomize;
s:=Random(X1-X0)+X0;
w:=Random(X1-X0)+X0;
writeln('у Кузи-',s);
writeln('у Дуси-',w);
if (s>w)
<span>then
Writeln ('-у Кузи больше')
</span><span>else
Writeln ('-у Дуси больше');
</span>Readln
end.<span>
</span>