9д
10в <u> Тело: </u> ввод t v вычисление s вывод s <u>вид</u>: с заданным условием
В1 Ответ 0
В2 ввод a,b,c
если a>=b и a>=c то max=а
если b>=a и b>=c то max=b
если c>=a и c>=b то max=c
если a<=b и a<=c то min=a
если b<=a и b<=c то min=b
если c<=a и c<=b то min=c
Ответ max-min
Операция div - это целочисленное деление. с = a div b - такая запись означает, что число а будет поделено на b и в переменную с запишется только целая часть от деления. 25 div 4 = 6. 25 div 5 = 5.
Операция mod наоборот находит не целую часть от деления, а остаток. Т.е. тут отбрасывается целочисленная часть деления. 25 mod 4 = 1 (т.к. если 25 разделить на 4, то получим 6 целых и 1 в остатке)
Теперь по заданию:
при 25 и 4
25 div 4 = 6. 6 <> 4 → A:=25 mod 4 = 1. Ответ 1
при 25 и 5
25 div 5 = 5. 5 = 5 → A:=25 div 5 = 5. Ответ 5
16 бит * 24000 Гц * 4 канала * 1 сек = 1536000 бит
1536000 бит / 8 = 192000 байт
192000 байт / 1024 = 187,5 кбайт.
187.5 кбайт / 1024 = 0,18310546875 мбайт
48 мбайт / 0,18310546875 мбайт = 262,144 секунд
из этих и выбери
Пример, ненужное уберешь
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.
