===== PascalABC.NET =====
begin
var a := ReadReal('Введи длину ребра');
var v := Pi * a ** 3 / (4 * Tan(Pi / 6));
Writeln('V = ',v)
end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
3.Step(3).TakeWhile(t -> t <= 100).Sum.Println
end.
<h2>1683</h2>
CPU (Central Processing Unit) - Центральный процессор
RAM (Random Access Memory) - Оперативная память
HDD (Hard Disk Drive) - Жесткий диск
Video Card - Видеокарта
Sound Card - Звуковая карта
Вроде бы пары надо было составить.
Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.
Продолжительность звучания вычислим по формуле:
t=N/b*f
где t- время звукозаписи (сек.),N- Объем диска (бит),b- разрядность (бит),f- частота дискретизации (Гц или 1/сек.)
t=(700*1024*1024*8)/16*32000=11468,8 сек
t=191,15 мин.