2^i=16; i=4;
4*5*8000= 160 000 бит = 20 000 байт
Просто сумма квадратов?
var
i, n: integer;
a, s: real;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
s := s + a * a
end;
write(s)
<span>end.</span>
Var a,b,c,d:real;
begin
writeln ('Введите длины сторон первого прямоугольника');
read (a,b);
writeln ('Введите длину одной стороны второго прямоугольника');
read (c);
d:=(6*a*b)/c; //Из формулы s2/s1=6 ; c*d/a*b=6
writeln ('Длин другой стороны второго прямоугольника = ',d)
end.
Телефон, запатентованный в США 1876 году, Александром Беллом, назывался «говорящий телеграф» . Трубка Белла служила по очереди и для передачи, и для приёма человеческой речи