4 года назад

Что такое каммуникационная среда

1 ответ:

Viktor30 [602]4 года назад

0 0

Коммуникационная среда - это совокупность условий, которая позволяет людям и организациям обмениваться информацией путем прямого обращения друг к другу.

Читайте также

постройте график работы с компьютером для членов семьи

Ангелинааа [500]

Папа утром на работе 4 часа
Мама днем 3 часов
я окола 2 часов вечером

0 0

4 года назад

По каким правилам определяется порядок выполнения операций в арифметикческие выражения?

Ryziy [42]

Правило: Порядок выполнения арифметических действий в числовом выражении следующий:
а) произвести вычисления в скобках или раскрыть скобки в выражении (если они есть);
б) выполнить все действия второй ступени (умножение и деление);
в) выполнить действия первой ступени (сложение и вычитание).

0 0

4 года назад

Дан массив А ненулевых целых чисел размера 10. Вывести значение первого из тех его элементов АК которые удовлетворяют неоавенств

Mitya-79 [11]

Var
a:array[1..10]of integer;
i,n:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
for i:=1 to 9 do
if a[i]<a[10] then
begin
n:=i;
break;
end;
writeln;
write('Ответ: ');
if n>0 then writeln(a[n]) else writeln(n);
end.

0 0

4 года назад

Вариант 22. Два сплава Имеется два сплава из двух металлов, соотношение этих металлов в каждом из сплавов известно. Программа до

vika723

===== PascalABC.NET =====

function НОД(a, b: integer): integer;

begin

(a, b) := (Abs(a), Abs(b));

while b <> 0 do

(a, b) := (b, a mod b);

Result := a

end;

function Подходит(a, b: integer) :=

(Sign(a) = Sign(b)) and (b <> 0);

procedure СократитьДробь(var a, b: integer);

begin

var d := НОД(a, b);

if d > 1 then

(a, b) := (a div d, b div d)

end;

begin

Println('Введите соотношения металлов в сплаве.');

Println('Числа частей целые и вводятся через пробел.');

var (a1, b1) := ReadInteger2('Первый сплав:');

var (a2, b2) := ReadInteger2('Второй сплав:');;

var (a3, b3) := ReadInteger2('Нужный сплав:');;

var y1 := (a2 + b2) * (a1 * b3 - b1 * a3);

var y2 := a1 * b2 - a2 * b1;

if not Подходит(y1, y2) then

begin

Println('Решения нет');

exit

end;

var x1 := (a3 + b3) * y2 - y1;

var x2 := y2;

if not Подходит(x1, x2) then

begin

Println('Решения нет');

exit

end;

СократитьДробь(y1, y2);

СократитьДробь(x1, x2);

var (r1, r2) := (x1 * y2, x2 * y1);

СократитьДробь(r1, r2);

var v := ReadReal('Требуемый объем сплава:');

Writeln('Соотношение частей металла ', r1, ' : ', r2);

Writeln('Соотношение объемов: ', v * r1 / (r1 + r2),

' : ', v * r2 / (r1 + r2))

end.

0 0

4 года назад

Объем свободной памяти на диске – 8,25 Мбайт, разрядность звуковой платы – 16. Какова длительность звучания цифрового аудиофайла

Олеся876 [4]

Решение и формулы представлены на картинке.

0 0

4 года назад