Var
a,b,min:real;
begin
write('А - ');
readln(a);
write('B - ');
readln(b);
if a<b then min:=a
else min:=b;
writeln('Min - ',min);
<span>end.</span>
Объяснение:
Обычная не новогодняя елочка без звезды =) Нужна звезда?
SCREEN 9
FOR b = 0 TO 4
y = y + 30
h = h + 10
LINE (200, 70 + y)-(200 - h, 100 + y), 2
LINE (200, 70 + y)-(200 + h, 100 + y), 2
LINE (200 - h, 100 + y)-(200 + h, 100 + y), 2
PAINT (200, 75 + y), 2
NEXT b
LINE (190, 101 + y)-(210, 130 + y), 4, BF
Ответ, в текстовом виде не прикладывается
Определим время передачи.
2048 бит/с = 256 байт/с = 0,25 Кб/с
128/0,25=128*4= 512с
Т.е. Файл передается 512с. Теперь узнаем новую скорость.
72/512= 0,140625 Кб/с = 144байт/с
Ответ:
144 байт/с