Файл размером 1024 кбайт передается через некоторое соединение за 1 минуту определите за сколько секунд можно передать этот же файл через соединение скорость которого на 512 бит в секунду меньше
2)определите скорость работы модема в бит/с если за 2 мин он может передать растровое изображение размером 320*640 пикселей при условии что в изображении могут использоваться 128 различных цветов
2 - меньше информации
3 - глобус, макет здания, муляж яблока, манекен
4 - рисунок, фотография
5 - знаковой
6 - смешанной
7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу
8 - существенные признаки объекта-оригинала
9 - разные модели объекта
10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро
11 - словесное описание, формула
12 - знаковой
13 - смешанной
14 - болт — чертеж болта, мелодия — нотная запись мелодии
// Внимание! Если программа не работает, обновите версию!
function GCD(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
procedure RedFrac(var a,b:integer); // сокращение дроби
begin
var (sgna,sgnb):=(Sign(a),Sign(b)); // мы должны учитывать знак!
(a,b):=(Abs(a),Abs(b));
var d:=Gcd(a,b);
(a,b):=((a div d)*sgna,(b div d)*sgnb)
end;
begin
var (a,b):=ReadInteger2('Числитель и знаменатель 1-й дроби:');
var (c,d):=ReadInteger2('Числитель и знаменатель 2-й дроби:');
var (p,q):=(a*d+b*c,b*d);
RedFrac(p,q);
Writeln('Результат: ',p,'/',q)
end.
Пример
Числитель и знаменатель 1-й дроби: -135 36
Числитель и знаменатель 2-й дроби: 31 60
Результат: -97/30