В 2 минутах 120 секунд, вычислим размер искомого файла, умножив скорость передачи файла через это соединение на время передачи:
5000/120 * 48 = 2000
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>
Надо найти минимальное количество бит, для записи 750 учащихся. Количество бит - целое, а количество вариантов записанное заданным количеством бит
Надо найти минимальное b, чтобы N было больше 750.
Значит, минимальное кол-во бит, при помощи которого можно записать коды 750 учащихся b = 10.
Соответственно информационный объем сообщения о кодах 180 учащихся = 180 * 10 = 1800 бит = (1800 / 8) байт = 225 байт
var
a, b : real;
begin
read (a, b);
write (trunc (a * b));
end.
var
a : integer;
begin
read (a);
write (frac (a / 10));
end.
г)
var
a, b : real;
begin
read (a, b);
write (round (a + b));
end.
d)
var
a, b : integer;
begin
read (a, b);
write (a div b);
end.
e)
var
a : integer;
begin
read (a);
write (a div 1000);
end.
ж)
var
a : longint;
begin
read (a);
write (a div 24 + 1);
end.
з)
var
k : integer;
begin
read (k);
write (k div 7 + 1);
end.
и)
var
k : integer;
begin
read (k);
write (k div 60, ':', k mod 60);
end.