var a:integer;
begin
readln (a);
if (a>0) then
repeat
a:=a-3;
until(a<0);
if (b<0) then
repeat
a:=a+2;
until (a>70);
writeln (a);
end.
<span>Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 2</span>15<span> бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 2</span>19<span> бит/с). </span>
<span>Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 2</span>20<span> байт = 5 * 2</span>23<span> бит. </span>
<span>Время задержки: </span><span> = 512 кб / 2</span>19<span> бит/с = 2</span>(9 + 10 + 3) - 19<span> c = 2</span>3<span> c. </span>
<span>Время скчивания данных Мишей: </span><span> = 5 * 2</span>23<span> бит / 2</span>15<span> бит/с = 5 * 2</span>8<span> c. </span>
<span>Полное время: </span><span> = 5 * 2</span>8<span> c + 2</span>3<span> c = (256 * 5 + 8) c = 1288 c. </span>
<span>Ответ: 1288.</span>
Var
A: array [1..10] of real;
B: array [1..10] of real;
i: integer;
begin
writeln('Массив А:');
for i:= 1 to 10 do
begin
A[i]:= random(200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
writeln(A[i]);
end;
writeln('Массив В:');
for i:= 1 to 10 do
begin
B[i]:= A[i] / 5;
writeln(B[i]);
end;
end.
Ответ:
0
Объяснение:
(A∨N) & ¬(A∨N) = 0
Обозначив (A∨N) через B, можно написать B & ¬B, а это тождественно 0.
