<span>ДЛСТР(0,0012) - функция, возвращающая количество символов в аргументе, который рассматривается, как текстовая строка. В строке "0,0012" шесть символов и мы получим значение 6.
</span><span>МИН(15;16;17) - функция, возвращающая минимальное значение из набора своих аргументов. В данном случае она вернет значение 15
Сумма этих значение даст 6+15=21. Это и есть ответ.
Замечание. Строго говоря, в ДЛСТР() надо писать "0,0012", потому что если написать именно как указано в задании, функция вернет ОШИБКУ.
</span>
Var x, a, b,., c, d: integer;
begin
readln(x, a, b);
if ((x > a) and (x < b)) then
writeln(a; b);
end.
Это если не ошибаюсь 1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17*18*19*20*21=51090942171709440000
Ответ:
86 дисков
Объяснение:
50 Гбайт=51200 Мбайт
51200 Мбайт : 600 Мбайт = 85,3 дисков , итого 86 чтобы записать остаток
Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.