Документ объёмом 4 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать.
Б. Передать по каналу связи без использования архиватора.
При этом:
· средняя скорость передачи данных по каналу связи составляет 222 бит в секунду;
· объём сжатого архиватором документа равен 50% от исходного;
· время, требуемое на сжатие документа, — 6 секунд, на распаковку — 2 секунды.
Какой быстрее и насколько?
В ответе напишите букву А, если быстрее А, или Б, если быстрее Б. Сразу после буквы напишите, на сколько секунд один быстрее другого.
Например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23.
Единицы измерения («секунд», «сек.», «с.» и т. п.) к ответу добавлять не нужно.
Желательно прописать формулы.
begin
var a:=ArrRandom(100,-20,20); a.Println;
WritelnFormat('Положительных {0}, отрицательных {1}',
a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.
Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54
1. Формула пути S=V*t,V=S/t;
Значит программа имеет вид
var s, v, t:integer;
begin
writeln('Введите путь и время');
readln(s, t);
v:=s/t
writeln('ответ: V=', v);
end.
Все остальное по анологии
Во 2 и 3 y:=/формула в условии/ и выводишь у
В 4, воспользуйся формулой площади S=a*b (a и b - ширина с длинной)
В 5 a=P-2*b (а основание, b бок сторона)
В 7 o=(a+b+c)/3 (о - ср., а, b, c - число в классах)
8.
var a, b:integer;
begin
writeln('Введите числа');
readln(a, b);
writeln('Сумма=', a+b);
writeln('Разность=', a-b);
end.
В 9 как 8, только вместо + и - надо * И /