На языке паскаль составить программу, проверяющую, лежит ли данная точка с координатами (x, y) в первой четверти координатной плоскости.программа должна выводить на экран результат в виде: точка с координатами (x, y) лежит в первой четверти координатной плоскости или точка с координатами (x, y) не лежит в первой четверти координатной плоскости.

Program points; uses crt; var x, y: real; begin   write('введите х: ');   readln(x);   write('введите y: ');   readln(y); if (x > 0) and (y > 0) then   writeln(' точка с координатами (' , x , ',' , y , ') лежит в первой четверти координатной плоскости') else   writeln(' точка с координатами (' , x , ',' , y , ') не лежит в первой четверти координатной плоскости'); readln end.

1) 1. 2 в 13 степени бит=8192 бита. То есть биты выражаем в килобайты. Решение:8192 бита=1 килобайту. ответ:1 килобайт.

2. 0.125*1024*1024=1048576

3. 1/2 кБ=1024/2 байт=8*1024/2 бит=4096 бит.

4. 2 в 23 это 8388608 бит, тк в 1 байте 8 бит, то 8388608 : 8=1048576 байт, следовательно 1мб

5. 15 кбайт= 120000 бит, 120000 бит= 120 кбит

2)Длина данного текста 32 символа

3) 150*16=2400 бит, 2400 бит= 300 байт, ответ 300 байт

4) -

5) количество последовательностей будет равно количеству двоичных чисел, которые можно записать с символов, т.е. 2 ^ 7 = 128

Объяснение:

num1 = float(input("Введите первое число: "))-вводиться число

num2 = float(input("Введите второе число: ")) -вводиться второе число

if num1 < num2:  -если нум1 меньше нум2 тогда

   print (num1, "меньше чем", num2)  вывести нум1 меньше чем нум 2

if num1 > num2:  - если нум1 больше чем нум2 тогда

   print (num1, "больше чем", num2)  вывести нум1 больше чем нум2

if num1 == num2:  -если нум1 равно нум2 тогда

   print (num1, "равно", num2)  вывести нум1 равно нум2

if num1 != num2:  -если нум1 не равно нум2 тогда

   print (num1, "не равно",num2) вывести нум 1 не равно нум2