1. Запишите числа в естественной форме: а) 0,1212 * 10 2 б) 932550 * 10-5
2. Перечислите три вида логических операций, укажите обозначения и начертите таблицу истинности для каждой логической операции.
3. Переведите в десятичную систему счисления число 1011111012
4. Переведите в двоичную систему счисления число 75710. Запишите в ответе количество нулей.
5. Переведите в двоичную систему счисления число 13410. Запишите в ответе количество единиц.
6. Переведите в восьмеричную систему счисления число 75710
7. Переведите в шестнадцатеричную систему число 13210
8. Переведите в десятичную систему счисления число 1ЕC16
9. Переведите в десятичную систему счисления число 10217
10. Сравните числа 1258 и 5516

11. Какие предложения являются высказываниями?
а) Челябинск – столица России.
б) Бегемоты живут на северном полюсе.
в) Буратино – мой самый любимый персонаж.
г мне встать!
а) На улице туман?
б) На улице мороз.
в) Ты выполнил домашнее задание?

Const
  n=10;
var
  a:array[1..n] of integer;
  i,kp,sn: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  kp:=0; sn:=0;
  for i:=1 to n do
  begin
    a[i]:= Random(31)-10;
    Write(a[i]:4);
    if a[i]>0 then Inc(kp);
    if (i mod 2)<>0 then sn:=sn+a[i]
  end;
  Writeln;
  Writeln('Количество положительных элементов: ',kp);
  Writeln('Сумма элементов на нечетных местах: ',sn);
  Writeln('Элементы массива после замены');
  for i:=1 to n do
  begin
    if a[i]<10 then a[i]:=10;
    Write(a[i]:4)
  end;
  Writeln
end.

Тестовое решение:
Элементы массива
  10  11  -4  11  12  13  -1  -2  -8   7
Количество положительных элементов: 6
Сумма элементов на нечетных местах: 9
Элементы массива после замены
  10  11  10  11  12  13  10  10  10  10

Чтобы задать прямоугольник, достаточно указать координаты концов его диагонали, например, идущей из левого верхнего угла в правый нижний, т.е. две точки: B(x1,y1) и D(x2,y2). Но можно также задать и другую диагональ (AC). Если считать, что стороны прямоугольника параллельны осям координат то длины сторон могут быть найдены как

Тогда можно найти и периметр:

Нахождение периметра оформим процедурой Per(x1,y1,x2,y2,P)

procedure Per(x1,y1,x2,y2:real;var P:real);
begin
  P:=2*(abs(x2-x1)+abs(y2-y1))
end;
var
  x1,x2,y1,y2,p:real;

begin
  Write('Введите координаты любой вершины прямоугольника: ');
  Read(x1,y1);
  Write('Введите координаты противоположной вершины прямоугольника: ');
  Read(x2,y2);
  Per(x1,y1,x2,y2,p);
  Writeln('Периметр прямоугольника равен ',p)
end.

Тестовое решение:
Введите координаты любой вершины прямоугольника: 5 -7
Введите координаты противоположной вершины прямоугольника: -4 12
Периметр прямоугольника равен 56