Все категории

4 года назад

Приведите примеры, когда одна и та же информация может быть передана с помощью разных сообщений.

Знания

Информатика

1 ответ:

natashsha4 года назад

0 0

Ответ:

Я хочу есть, оч сильно

Двоичный код:

0000111000101101001011110001010

00000111000101111000111100000111

00010111000101110000011100010111

10010000000001110001011110001110

00001010000001110001011100001111

00000111000101111000110100000111

00010111100011011000011100010111

10010110000001110000110110010110

00001010000001110001011100010111

00000111000101111001000000000111

00010111000011110000011100010111

00010110100001110001011110010110

00001010000001110001011110001101

00000111000101110001000010000111

00010111000101011000011100010111

10010110000001110001011100010110

10000111000101110001011100001010

Морзе :

Объяснение:

*-*- **** --- ---* **- * *** - -**-, --- ---* * -* -**- *** ** *-** -**- -* ---

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

Помогите пожалуйста! Приведите четыре примера расширений графических файлов.

serzhaleksandrov

Ответ:

.gif .tif .jpg .png .wmf

Объяснение:

0 0

4 года назад

Прочитать ещё 2 ответа

Написать программу вычисления значения выражения: sin2*sin4*sin6*…*sin2N при заданном N (цикл «до»)

Slyth [5]

Var
n:integer;
x,p:real;
begin
x:=2;p:=1;
writeln('N?');
readln(n);
repeat
p:=p*Sin(x);
x:=x+2;
until x>n*2;
writeln('p: ',p:4:2);
end.

0 0

4 года назад

Написать программу решения задачи на языке Паскаль: а)Известно, что Х кг шоколадных конфет стоит А рублей, а Y кг ирисок стоит В

GaiNina [215]

// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.

//Дана длина ребра куба а. Найти его объем и площадь поверхности

Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
    begin
      writeln ('вы ввели не допустимое значение попробуйте еще раз');
      writeln ('введите длину ребра куба');
      readln (a);
    end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.

0 0

3 года назад

Pascal. 1. Найти среднее арифметическое положительных элементов двумерного массива.

Sentcom [5.4K]

Const
nn=50; { ограничение на длину строки/столбца }
var
i,j,m,n,k,s:integer;
a:array[1..nn,1..nn] of integer;
begin
Randomize;
Write('Количество строк в массиве '); Read(m);
Write('Количество столбцов в массиве '); Read(n);
s:=0;
k:=0;
for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(101)-50;
      Write(a[i,j]:4);
      if a[i,j]>0 then begin
        s:=s+a[i,j];
        k:=k+1
      end
    end;
Writeln
end;
Writeln('Ср. арифметическое положительных ',s/k)
end.

<u>Пример</u>
Количество строк в массиве 8
Количество столбцов в массиве 11
-11 27 -22 46 -34 -36 10 39 -5 15 -46
46 -48 -42 50 -14 12 -23 -29 -2   8 16
-18 -5 -31 21 -28 -38 20 33   9 24   4
43 18   9 -44 -22 25 37 39 -48 -16 -15
-15 12 46 49 12 -50 -10 42 47 46 33
23 -5 34 26 -5 42 -2 -32 12 -44 -19
-8 -41 -9 -9 -20 -16   3 -15   9   5 -19
47 -40   7 26 -26   0 20 -8 18 27   9
Ср. арифметическое положительных 25.4666666666667

0 0

1 год назад

Вычеслить арифметическое выражение и сделать проверку,переведя в десятичную систему счисления (10110+1011)

sergey4276 [20]

  10110
  1011
  ---------
100001
22+11⇒33

0 0

1 год назад