Марату необходимо нарисовать прямоугольный параллелепипед со сторонами основания
30 см и 40 см, боковое ребро -50 см Марату нарисовать параллелепипед.

b. Установите правильную последовательность рисования параллелепипеда.
№ Действие
Тянуть верх
Растягиваем в нужную сторону прямоугольник
Нажать стартовую точку (первый угол прямоугольника)
На клавиатуре набрать «50cm» и нажать на «Enter»
На клавиатуре набрать «30cm;40cm» и нажать на «Enter»
Выбрать инструмент «фигура», выбрать форму «Прямоугольник»
Выбрать инструмент «Вдавить/Вытянуть»
Нажать на основание​

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.