Var
max, prev_max, n: integer;
begin
max := -10000;
prev_max := -10000;
repeat
read(n);
if n > max then begin
prev_max := max;
max := n;
end;
until n = 0;
writeln(max, ' ', prev_max, ' ', prev_max / max);
end.
В римской системе из левого большего числа вычитается правое меньшее.
XLCDM
X- 10
L-50
C-100
D-500
M-1000
Получается из M-D-C-L-X= 1000-500-100-50-10=340
Ответ- 340
Написано на Pascal
var
a,b,i:integer;
begin
writeln('Введите длины сторон шестиугольника:');
for i:=1 to 6 do begin
write('Длина '+i+' стороны: ');
readln(a);
b:=b+a;
end;
writeln('Периметр равен: '+b);
end.
узнаем количество точек 640*480=307200
1 пиксель 3 байта, вычисляем размер картинки
3*307200=921600 байт.
скорость модема = 921600 делим на время 256
скорость = 921600/256=3600 байт в секунду
Если в палитре 16 м цветов.
1 пиксель кодируется 24 бит или 3 байта, а это и есть параметр нашего изображения. Тут считать нечего.
Ответ: 3600 байт в секунду.