//PascalABC.NET 3.1 сборка 1200
begin
PrintLn(ArrRandom(30, 0, 500).Println().ToArray
.Where(x->x mod 20 = 0).Println()
.Count);
end.
Const pi=3.141593;
<span>var R,R1,H,V: real;
</span><span>begin
</span><span> write('радиус нижнего основания R: '); readln(R);
</span><span> write('радиус верхнего основания R1: '); readln(R1);
</span><span> write('высота конуса H: '); readln(H);
</span><span> V:=H*pi*(R*R+R*R1+R1*R1)/3;
</span><span> writeln('объем конуса V = ',V:7:3);
</span><span>end.
</span>радиус нижнего основания R: 10
<span>радиус верхнего основания R1: 15
</span><span>высота конуса H: 8
</span><span>объем конуса V = 3979.351
</span>
Корневой каталог - начальный каталог в структуре каталогов.
В этом случае ответ Б) В:
Program pos;
var
c, n: integer;
begin
c := 0;
while (True) do
begin
readln(n);
if n = 0 then
break
else
if (n mod 2 = 1) and (n >= 1) and (n <= 9) then
c := c + 1;
end;
writeln('количество: ', c);
end.
Может получиться 64 последовательности.
Всего 6 мест, на каждом месте может стоять 2 буквы.
Следовательно, 2 в 6 степени = 64.