1.объем оперативной памяти 512 мб, а емкость жесткого диска 120 гб. во сколько раз емкость жесткого диска больше, чем емкость оперативной памяти? 2.информационный объём одного сообщения составляет 0, 5 кбайт, а другого – 500 байтов. на сколько битов информационный объём первого сообщения больше объёма второго сообщения? 3. файл архива занимает 150 мб. сколько полных файлов вместиться на флэшку 8 гб 4. 1 страница содержит 50 строк по 40 символов. книга содержит 200 страниц. определить: 1. информационный объем страницы 2.информационный объем книги 3. сколько книг вместиться на 1 дискету (объем дискеты=1, 44мб) 4.сколько книг вместится на 1 cd-disk. (объем диска =800мб)

1.  В гигабайте 1024 мегабайт. 1) 120*1024 = 122880 - это мегабайт в 120 гигабайтах
2) 122880/512= 240.
ответ: в 240 раз.

2. 0,5 Кбайт - 512 байт
    т.к. 1 байт - 8 бит, следовательно 512 байт - это 4096 бит ( обьем первого сообщения)
   1) 4096 - 500=3596 бит =449,5 байт

3. 1) 8 Гб * 1024 = 8192 Мб
     2) 8192 / 150 = 54,61333 
     ответ: 54 

 4. 1 символ  = 1 байт.Строка : 40 символов * 1 байт = 40 байт.Страница : 50 строк *40 байт = 2000 байт.Книга : 200 страниц * 2000 байт = 400 000 байт / 1024 = 390,625 КбНа 1 дискету вместится:
 1) 1440 Кб : 390,625 Кб = 3,6864 = 3,6 книг
На 1 CD-Disk. вместится:
800 Мб : 390,625 Кб = 800 Мб * 1024 = 819 200 Кб : 390,625 Кб = 2097, 152 книги...

1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 
 then y:=1
 else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.

Пример:
x = -5
y = -1

2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln('x1 = ',x1,' x2 = ',x2);
      end
  else if d=0 then begin
                   x1:=-b/(2*a);
                   writeln('x = ',x1);
                   end
               else writeln('Корней нет');
end. 

Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3

3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
 then begin
      b:=a; c:=a;
      end
 else begin
      a:=-a; b:=-b; c:=-c; 
      end;
writeln('a = ',a,' b = ',b,' c = ',c);
end. 

Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2

Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5

Using System;

//Напишите программу которая определяет в заданном числе заданную цифру.
//Цифра это числа от 0 до 9

namespace NoNamespace {
    internal class Program {

        private static void Main() {
            Console.WriteLine(IsDigitInNumber(123.8, 2));
            Console.WriteLine(IsDigitInNumber(1, 1));
            Console.WriteLine(IsDigitInNumber(103.28, 2));
            Console.ReadLine();
        }

        private static int IsDigitInNumber(double number, uint digit) {
            if (0 > digit || digit > 9)
                throw new Exception("Не верный формат цифры");

            var n = number.ToString().IndexOf(digit.ToString());
            var p = number.ToString().IndexOf(".");
            //Console.WriteLine($"number = {number} digit = {digit} n = {n} p = {p} A = {p-n}");
            return p-n;
        }
    }
}