PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
<span>PRINT v2</span>
11КГц=11000гц
1 мин=60 секунд
11000*8*60=5280000/4=1320000 байт/1024=1289,0625 кб/1024=1мб
Вроде так)
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);<span>
end.</span>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
5.To(12).Tabulate(x->x*x+1).Println
end.
<u><em>Результат:</em></u>
(5,26) (6,37) (7,50) (8,65) (9,82) (10,101) (11,122) (12,145)
Каналом связи, так как он передает информацию