Файл размером 100 Кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно.1. 100*1024*8=819200 бит. 2. t=819200бит/1536бит/сек=533сек.3. 533сек*768бит/сек=409344бит.4. 409344/8=51168байт.5. 51168байт/1024=50Кбайт. Я советую тебе проверить, правильно ли ты написал (а) числа, ибо ответ не целый много, где получается. <span>Так как время одинаковое, легче решать пропорцией.
100 Кбайт / 1536 бит в секунду = х Кбайт / 768 бит в секунду
х Кбайт = 100 Кбайт * 768 бит в секунду / 1536 бит в секунду = 100 К байт / 2 = 50 Кбайт</span>
X : real (вещественный);
Если это массив, то array [0,2..0,5]
Ответ:
AND
Объяснение:
Можно решать с помощью таблицы истинности (см. вложение).
Требуется операция, дающая ноль при комбинациях 00, 01, 10.
Это функция AND. Она дает 1 при комбинации 11, но из таблицы истинности видно, что такой комбинации быть не может.
Var
a,b,h,s:real;
begin
readln(a,b); // нижнее, верхнее основание
readln(h); // высота
s:=((a+b)/2)*h;
writeln(s);
end.
1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.
-----------------------------------
Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.
-----------------------------------
2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.
------------------------------------
Введите слово:
ученик
Верно
------------------------------------
3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------