По описанию восстановите рисунок: прямоугольник 40, 70, 90, 40 прямоугольник 90, 100, 130, 40 прямоугольник 100, 90, 120, 70 установить 130, 50 линия к 140, 50 прямоугольник 140, 90, 230, 40 окружность 60, 30, 10 окружность 110, 30, 10 окружность 150, 30, 10 окружность 170.30, 10 окружность 200, 30, 10 окружность 220, 30, 10 прямоугольник 50, 100, 60, 70 окружность 60, 110, 5 окружность 70, 130, 10 окружность 90, 150, 15

Прямоугольник 40 ,70 , 90, 40,

задача 1.

var

   a, s : integer;

begin

   writeln('введите числа:');

   while s < 101 do begin

       read(a);

       s += a;

   end;

   writeln('Стоп! Сумма чисел больше 100, s=', s);

end.

задача 2.

var

   h : char;

   n : integer;

begin

   writeln('введите символы:');

   while n < 5 do begin

       read(h);

       if h = 'F' then n += 1;

   end;

   writeln('Стоп! Символ F был введен 5 раз')

end.

задача 3.

var

   a : integer;

begin

   write('Введите число от 1 до 4 : ');

   readln(a);

   if (a = 1) or (a = 2) then begin

       for var i := 3 downto 1 do begin

           for var j := 1 to i do write('*');

           writeln;

       end;

   end

   else if (a = 3) or (a = 4) then begin

       for var i := 1 to 3 do begin

           for var j := 1 to i do write('*');

           writeln;

       end;

   end

   else writeln('вы ввели не правильное число :(');

end.

Числа в памяти компьютера записываются в двоичном виде. Иными словами, число представлено двумя цифрами - 0 и 1.

Число 21

21 / 2 = 10, остаток 1

10 / 2 = 5, остаток 0

5 / 2 = 2, остаток 1

2 / 2 = 1, остаток 0

1 / 2 = 1, остаток 1

Запишем воедино остатки с конца и получим двоичное представление числа:

21₁₀ = 10101₂

Число 32

Здесь можно не делить число на 2 до тех пор, пока в ответе получится единица. Стоит вспомнить, что 32 - это степень цифры 2. То есть 2⁵ = 32, где 5 - это количество нулей в записи: 1000...

32₁₀ = 100000₂

Число -44

Для перевода отрицательных чисел нам нужно:

Мысленно убрать минус и перевести число в двоичное:

44 / 2 = 22, остаток 0

22 / 2 = 11, остаток 0

11 / 2 = 5, остаток 1

5 / 2 = 2, остаток 1

2 / 2 = 1, остаток 0

1 / 2 = 1, остаток 1

44₁₀ = 101100₂

Дополнить двоичное представление числа нулями слева до 8 бит

101100₂ ⇒ 00101100₂

Изменить 0 на 1, 1 на 0

00101100₂ ⇒ 11010011₂

Добавить к полученному двоичному числу единицу

11010011₂ + 1₂ = 11010100₂

-44₁₀ = 11010100₂

Число 34

34 / 2 = 17, остаток 0

17 / 2 = 8, остаток 1

8 / 2 = 4, остаток 0

4 / 2 = 2, остаток 0

2 / 2 = 1, остаток 0

1 / 2 = 1, остаток 1

34₁₀ = 100010₂

Число -112

112 / 2 = 56, остаток 0

56 / 2 = 28, остаток 0

28 / 2 = 14, остаток 0

14 / 2 = 7, остаток 0

7 / 2 = 3, остаток 1

3 / 2 = 1, остаток 1

1 / 2 = 1, остаток 1

112₁₀ = 1110000₂

1110000₂ ⇒ 01110000₂01110000₂ ⇒ 10001111₂10001111₂ + 1₂ = 10010000₂

-112₁₀ = 10010000₂