Первый вопрос - первое вложение. Второй - два остальных.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, M: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите число тюльпанов на грядке: ");
N := Приём.Число();
Вывод.Цепь("^Введите число лилий на грядке: ");
M := Приём.Число();
Вывод.ЧЦел("^Всего цветов Оля посадила: %d шт.", 5 * N + 7 * M, 0, 0, 0)
КОН Задание.
Пример, ненужное уберешь
const
handsfree = true;
var
a: array[1..100, 1..100] of real;
max, min: real;
sum, product: real;
i, j, m, n, k: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
{минимумы и максимумы}
max := a[1, 1];
min := a[1, 1];
for i := 1 to m do
for j := 1 to n do
begin
if max < a[i, j] then max := a[i, j];
if min > a[i, j] then min := a[i, j];
end;
writeln('max = ', max);
writeln('min = ', min);
{сумма, произведение, пр. агригаты}
sum := 0;
product := 1;
for i := 1 to m do
for j := 1 to n do
if a[i, j] <> 0 then {если нужен фильтр}
begin
sum := sum + a[i, j];
product := product * a[i, j];
k := k + 1;
end;
writeln('sum = ', sum);
writeln('product = ', product);
writeln('average = ', sum / (n * m));
writeln('average (selected) = ', sum / k);
end.
Program n1;
var a: integer;
begin
readln(a);
case a of
1..89: writeln('Остроугольный');
90: writeln('Прямоугольный');
91..179: writeln('Тупоугольный');
else writeln('некорректный ввод');
end;
end.
1.<span> 256000 бит/с * 16 с = </span>4096000 бит
1 бпйт = 8 бит ⇒ 4096000 бит = 512000 байт
512000 байт / 1024 = 500 Кбайт
Ответ: 500
2. 2000 К байт = 2000 * 1024 * 8 = 16 384 000 бит
Скорость передачи - 1024000 бит/с
t = 16 384 000 / 1024000 = 16c
Ответ: 16
3. Скорость передачи - <span>128 000 бит/с
Размер файла - </span><span>375 Кбайт
Размер файла = 375 * 1024 * 8 = 3072000 бит
t = 3072000 бит / </span><span>128 000 бит/с = 24с
Ответ: 24 с
4.Скорость передачи = </span><span>512 Кбит/с
Время передачи = </span><span>4 минуты = 240 с
Размер файла = 512 Кбит/с * 240 с = 122880 Кбайт = 120 Мбайт
Ответ: 120 Мбайт
5. Скорость передачи = </span><span>64 Кбит/с
Время = 10 минут = 600 с
Размер файла = 64 Кбит/с * 600 с / 8 = 4800 Кбайт
Ответ: 4800
6. Размер файла = 5 Кбайт
Скорость передачи = 2048 бит/с
5 Кбайт = 5120 байт
Скорость второго соединения = 512 бит/с, т.е. в 4 раза меньше ⇒
5120 / 4 = 1280
Ответ: 1280
7. По аналогии с предыдущим заданием, делаем и это:
Скорость второго соединения в 8 раз меньше, чем первого.
16 Кбайт / 8 = 2 Кбайта = 2048 байта
Ответ: 2048
</span>