266 минут понадобиться что передать 16 гигабайт по каналу 8мбит/с
Решение задачи 1 "Найти площадь кольца, внутренний радиус которого равен 20, а внешний – заданному числу r (r>20)". см в файле.
Решение задачи 2, "<span>Вычислить период колебания маятника длины L", для математического маятника, см файл задача 2.</span>
запишем условие: мощность алфавита равна N=256, страниц=3, строк=48, символов=64, I=?
решение: подсчитаем общее количество символов в тексте
К=3*48*64=9216
найдем вес одного символа алфавита
256=2^i, 2^8=2^i, i=8 бит
вычислим информационный объем текста
I=K*i=9216*8=73728 бит=9216 байт
Var a:array[1..100] of integer;
i,p,m:integer;
begin
p:=0;
m:=0;
for i:=1 to 100 do begin
a[i]:=random(-20,20);
if a[i]>0 then p+=1 else
m+=1;
end;
writeln('Положительных - ',p,' отрицательных - ',m);
<span>end.</span>
Ответ:
program obmen;
var x,y,z:integer;
begin
writeln('введите x');
readln(x);
writeln(' введите y');
readln(y);
if x>y
then z:=x;
if z>y
then x:=y;
if z>x
then y:=z;
writeln('x= ', x);
writeln('y = ', y);
end.
Объяснение:
Смотри, ты вводишь x и y, и если x>y, то через if-ы присваиваешь значение x значению z; значению x значение y и значению y значение z