Построить (нарисовать) два аттракцион в паскаль ( колесо обозрения и ещё какой-нибудь) и записать координаты​

1.

2-й игрок получает информацию о том, на какую клетку походил первый. Так как это уже третий ход первого, значит перед этим были заняты 4 клетки (два хода первого + два хода второго). Это значит, что перед 3-м ходом первого свободны 25 - 4 = 21 клетка. Для кодирования информации об одной из 21 клеток нужно 5 бит (решаем неравенство N<=2^i, подбирая минимально возможное значение i)
ответ: 5 бит

2.

1/512 Мбайт = (1024/512) Кбайт = 2 Кбайт = 2048 байт
Всего 2048 символов, значит, для кодировки одного символа нужен 1 байт .
1 байт = 8 бит
С бит можно закодировать 2^8=256 символов
ответ: размер алфавита 256 символов

3.

Для кодировки каждого символа 16-символьного алфавита нужно 4 бит
(решаем неравенство 16<=2^i, подбирая минимально возможное значение i). Далее, одна страница текста содержит 30 * 50 = 1500 символов.
6 страниц текста содержат 6 * 1500 = 9000 символов.
Весь текст содержит 9000 символов * 4 бит = 36000 бит = 4500 байт (приблизительно 4,39 Кбайт)

ответ: 4500 байт

 

Примеры:

  - система автоматической терморегуляции поддерживает заданную температуру (управляющее устройство получает информацию от температурных датчиков, обрабатывает ее - сравнивает реальную температуру с заданной, и передает команды нагревательному элементу - усилить или уменьшить нагрев) - например в кондиционерах
  - система программного управления обеспечивают стирку в стиральной машине в заданном режиме
  - система записи звука в диктофоне
  - система управления станком с ЧПУ (числовым программным управлением)

Программа №1.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, h, s:real;
begin
   writeln('Enter a, b and h');
   readln(a, b, h);
      s:=(0.5*(a+b))*h;
   writeln('Area of the trapezoid=', s);
   readln;
end.

Программа №2.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, s:integer;
begin
   writeln('Enter the price and quantity');
   readln(a, b);
      s:=a*b;
   writeln('Cost of purchase=', s);
   readln;
end.

Программа №3.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, w:real;
begin
   writeln('Enter the speed and time');
   readln(a, b);
      w:=a*b;
   writeln('Way=', w);
   readln;
end.


Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).