1.<span> 256000 бит/с * 16 с = </span>4096000 бит
1 бпйт = 8 бит ⇒ 4096000 бит = 512000 байт
512000 байт / 1024 = 500 Кбайт
Ответ: 500
2. 2000 К байт = 2000 * 1024 * 8 = 16 384 000 бит
Скорость передачи - 1024000 бит/с
t = 16 384 000 / 1024000 = 16c
Ответ: 16
3. Скорость передачи - <span>128 000 бит/с
Размер файла - </span><span>375 Кбайт
Размер файла = 375 * 1024 * 8 = 3072000 бит
t = 3072000 бит / </span><span>128 000 бит/с = 24с
Ответ: 24 с
4.Скорость передачи = </span><span>512 Кбит/с
Время передачи = </span><span>4 минуты = 240 с
Размер файла = 512 Кбит/с * 240 с = 122880 Кбайт = 120 Мбайт
Ответ: 120 Мбайт
5. Скорость передачи = </span><span>64 Кбит/с
Время = 10 минут = 600 с
Размер файла = 64 Кбит/с * 600 с / 8 = 4800 Кбайт
Ответ: 4800
6. Размер файла = 5 Кбайт
Скорость передачи = 2048 бит/с
5 Кбайт = 5120 байт
Скорость второго соединения = 512 бит/с, т.е. в 4 раза меньше ⇒
5120 / 4 = 1280
Ответ: 1280
7. По аналогии с предыдущим заданием, делаем и это:
Скорость второго соединения в 8 раз меньше, чем первого.
16 Кбайт / 8 = 2 Кбайта = 2048 байта
Ответ: 2048
</span>
НАЧАЛО
вводим число
складываем цифры
Полученное число делиться на 3?
если да то делиться,
если нет не делиться
Я одна ничего не поняла!!????????
//4)
var
x1, y1, x2, y2, x3, y3, x4, y4: integer;
s, sc: real;
function linelength(x1, y1, x2, y2: integer): real;
begin
linelength := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;
procedure ger(a, b, c: real);
var
p: real;
begin
p := (a + b + c) / 2;
sc := sqrt(p * (p - a) * (p - b) * (p - c));
end;
begin
write('1:');readln(x1, y1);
write('2:');readln(x2, y2);
write('3:');readln(x3, y3);
write('4:');readln(x4, y4);
ger(linelength(x1, y1, x2, y2), linelength(x2, y2, x3, y3), linelength(x1, y1, x3, y3));
s := s + sc;
ger(linelength(x1, y1, x4, y4), linelength(x4, y4, x3, y3), linelength(x1, y1, x3, y3));
s := s + sc;
writeln(s);
end.
//3)
var
a, b, c: integer;
function sce(var a: integer): integer;
var
sc, c: integer;
begin
while a <> 0 do
begin
c := a mod 10;
a := a div 10;
sc := sc + c;
end;
sce := sc;
end;
begin
read(a, b, c);
if (sce(a) > sce(b)) and (sce(a) > sce(c)) then writeln(a) else
if (sce(b) > sce(a)) and (sce(b) > sce(c)) then writeln(b) else
if (sce(c) > sce(a)) and (sce(c) > sce(b)) then writeln(c) else
if (sce(c) = sce(a)) and (sce(a) = sce(b)) then writeln('Равны');
end.