Как составить блок-схему и программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным.

Var x,y: integer;     begin  write('введите число: ');   readln(x);   y: =x mod 2;   if y=0 then    writeln('четное')   else  writeln('нечетное'); end.

Двоичная система

1314 / 2 = 657 (0₁₁)

657 / 2 = 328 (1₁₀)

328 / 2 = 164 (0₉)

164 / 2 = 82 (0₈)

82 / 2 = 41 (0₇)

41 / 2 = 20 (1₆)

20 / 2 = 10 (0₅)

10 / 2 = 5 (0₄)

5 / 2 = 2 (1₃)

2 / 2 = 1₁ (0₂)

ответ

10100100010

проверка

1¹⁰0⁹1⁸0⁷0⁶1⁵0⁴0³0²1¹0⁰₂ = 1 · 2¹⁰ + 0 · 2⁹ + 1 · 2⁸ + 0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 1024 + 0 + 256 + 0 + 0 + 32 + 0 + 0 + 0 + 2 + 0 = 1314₁₀

восьмеричная система

1314 / 8 = 164 (2₄)

164 / 8 = 20 (4₃)

20 / 8 = 2₁ (4₂)

ответ

2442

проверка

2³4²4¹2⁰₈ = 2 · 8³ + 4 · 8² + 4 · 8¹ + 2 · 8⁰ = 1024 + 256 + 32 + 2 = 1314₁₀

шестнадцатеричная система

1314 / 16 = 82 (2₃)

82 / 16 = 5₁ (2₂)

ответ

522

проверка

5²2¹2⁰₁₆ = 5 · 16² + 2 · 16¹ + 2 · 16⁰ = 1280 + 32 + 2 = 1314₁₀

меньше чем 3-х основание сс быть не может. (сама догадайся почему ; -)  

 

делим:  

 

23 : 3 = 7 ост. 2 — подходит  

23 : 4 = 5 ост. 3 — не подходит  

23 : 5 = 4 ост. 3 — не подходит  

23 : 6 = 3 ост. 5 — не подходит  

23 : 7 = 3 ост. 2 — подходит  

23 : 8 = 2 ост. 7 — не подходит  

23 : 9 = 2 ост. 5 — не подходит  

23 : 10 = 2 ост. 3 — не подходит  

23 : 11 = 2 ост. 1 — не подходит  

23 : 12 = 1 ост. 11 — не подходит  

23 : 13 = 1 ост. 10 — не подходит  

23 : 14 = 1 ост. 9 — не подходит  

23 : 15 = 1 ост. 8 — не подходит  

23 : 16 = 1 ост. 7 — не подходит  

23 : 17 = 1 ост. 6 — не подходит  

23 : 18 = 1 ост. 5 — не подходит  

23 : 19 = 1 ост. 4 — не подходит  

23 : 20 = 1 ост. 3 — не подходит  

23 : 21 = 1 ост. 2 — подходит  

23 : 22 = 1 ост. 1 — не подходит  

23 : 23 = 1 ост. 0 — не подходит  

 

далее для всех сс больше 23 остаток будет 23. следовательно нет смысла их рассматривать.  

 

итого: 2, 7 и 21.