Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
1. Общее количество символов 1800 + 2 х 3000 = 7800. Пусть символы кодируются в однобайтном коде ASCII, тогда 7 800 символов имеют информационный объём 7 800 байт или 7800 х 8 =62 400 бит. При скорости передачи 1200 бит/с на передачу этой информации потребуется время
62400 / 1200 = <u><em>52 с</em></u>
2. Предполагая кодировку ASCII определим объем информации:
7920 х 40 х 8 = 2 534 400 бит.
Скорость передачи составит 2534400 / 33 = <u><em>76 800 бит/с</em></u>
3. Переводим килобайты в биты (1 Кбайт = 1024 байта, 1 бит = 8 байт):
3750 х 1024 х 8 = 30 720 000 бит.
Переводим минуты в секунды: 2 х 60 = 120 с
Определяем скорость передачи: 30720000 / 120 = <u><em>256 000 бит/с</em></u>
1) 500 Кбайт = 500 х 1024 х 8 = 4 096 000 бит.
Время передачи данных 4096000 / 128000 = <em><u>32 с</u></em>
2) За 2 минуты, равные 2 х 60 = 120с, будет передано
256000 х 120 = 30 720 000 бит.
Переводим в килобайты: 30720000 / 8 / 1024 = <u><em>3 750 Кбайт</em></u>
3) 3000 Кбайт = 3000 х 1024 х 8 = 24 576 000 бит
5 минут - это 5 х 60 = 300 с
Скорость передачи данных составит 24576000 / 300 = <u><em>81 920 бит/с</em></u>
Прикрепил ниже в файле TXT код программы
За блок-схемой напиши в личку
Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.