Дано:
V = 56000 бит/сек
t = 15 cек
Найти:
I - ?
Решение:
I = t * V
I = 15 * 56000 = 840000 бит - передать можно за 15 сек при такой скорости
840000 бит = 840000/8 = 105000 байт /1024 = 102,54 Кбайт информации
Ответ: 102,54 Кбайт информации можно передать за 15 сек при такой скорости.
var a,s:real;
b:integer;
begin
s:=0;
for b:=1 to 5 do begin
writeln('Введите оценку:');
read(a);
s:=s+a;
end;
s:=s/5;
writeln('Средний балл:',s);
end.
106 * 1024 * 8 = 868352 (бит) - ёмкость одного печатного листа в битах.
868352 / 8 = 108544 (симв.) - кол-во символов на одном печатном листе.
108544 * 5 = 542720 (симв.) - кол-во символов на 5 листах.
542720 / 1024 = 530 (сек.)
Ответ: Для распечатки текста потребуется 8 минут 50 секунд.
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.