Дан алгоритм, который
определяет знак числа. Результат
его работы для некоторого числа
X должен быть равен 1 (если число
X положительное), -1 (если число X
отрицательное, О (если число X
равно 0). В ответе напишите
условие, которое должно быть в
пустом блоке, без пробелов. *
начало
Да
нет
x < 0
S:= -1
нет
S:= 1
S:= 0
ОЛ
конец
Мой ответ​

Const
  p = 3.14; //число "пи"

var
  N: byte;
  R, D, L, S: real;

begin
 {Сообщаем кратко данные задачи: }
  writeln(' Пусть в окружности:');
  writeln(' 1)R - радиус;');
  writeln(' 2)D - диаметр;');
  writeln(' 3)L - длина;');
  writeln(' 4)S - площадь круга.');
  writeln;
  writeln(' Введите номер одной из величин (от 1 до 4):');
  write('  N = ');
  readln(N); //Вводим номер величины.
 {Здесь используем цикл. Запрашивается ввод до тех пор, пока
 номер N не будет лежать в диапазоне [1, 4]:}
  while (N < 1)or(N > 4) do//Условие вхождения в цикл.
   begin
     writeln(' Такого номера здесь нет!');
     writeln(' Введите другой номер (от 1 до 4):');
     write('  N = ');
     readln(N) //Снова вводим номер.
   end;
  writeln;
 {Сообщаем о том, какую величину мы ввели,
 а потом запрашиваем ввести её значение:}
  write(' Это '); 
  case N of
    1: begin
         writeln('радиус окружности. Введите его значение:');
         write('  R = ');
         readln(R) 
       end;
    2: begin
         writeln('диаметр. Введите его значение:');
         write('  D = ');
         readln(D) 
       end;
    3: begin
         writeln('длина окружности. Введите её значение:');
         write('  L = ');
         readln(L) 
       end;
    4: begin
         writeln('площадь круга. Введите её значение:');
         write('  S = ');
         readln(S) 
       end         
  end; 
  writeln(' Тогда для остальных величин будем иметь:');
  writeln;
 {Используя соотношения D = 2*R, L = 2*p*R, S = p*sqr(R), 
 выразим последовательно  три  величины через четвертую: }
  case N of
    1: begin{Здесь дано R. Находим D, L и S: }
         writeln(' диметр: D = ', 2 * R);
         writeln(' длина: L = ', 2 * p * R);
         writeln(' площадь: S = ', p * sqr(R)) 
       end;
    2: begin{Здесь дано D. Находим R, L и S: }
         writeln(' радиус: R = ', D / 2);
         writeln(' длина: L = ', p * D);
         writeln(' площадь: S = ', p * sqr(D / 2))
       end;
    3: begin{Здесь дано L. Находим R, D и S: }
         writeln(' радиус: R = ', L / p / 2);
         writeln(' диаметр: D = ', L / p);
         writeln(' площадь: S = ', sqr(L) / p / 4 ) 
       end;
    4: begin{Здесь дано S. Находим R, D и L: }
         writeln(' радиус: R = ', sqrt(S / p):7:4);
         writeln(' диаметр: D = ', 2 * sqrt(S / p):7:4);
         writeln(' длина: L = ', 2 * sqrt(p * S):7:4)
       end         
  end 
end.

Файл размером 100 Кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно.1. 100*1024*8=819200 бит. 2. t=819200бит/1536бит/сек=533сек.3. 533сек*768бит/сек=409344бит.4. 409344/8=51168байт.5. 51168байт/1024=50Кбайт. Я советую тебе проверить, правильно ли ты написал (а) числа, ибо ответ не целый много, где получается. Так как время одинаковое, легче решать пропорцией.
100 Кбайт / 1536 бит в секунду = х Кбайт / 768 бит в секунду
х Кбайт = 100 Кбайт * 768 бит в секунду / 1536 бит в секунду = 100 К байт / 2 = 50 Кбайт