В языке Паскаль имеется оператор ветвления. Другое его название - условный оператор. Формат полного оператора ветвления следующий:
if <логическое выражение> then <оператор1>
else <оператор2>
Здесь if - "если", then - "то", else - "иначе".
Це означає як шукати. Через пошукові системи.
Ответ:
program wr;
begin
WriteLn (1);
WriteLn (6);
WriteLn (2, ' ',2);
WriteLn (7, ' ', 7);
WriteLn (3, ' ', 3, ' ', 3);
WriteLn (8, ' ', 8, ' ', 8);
WriteLn (4, ' ', 4, ' ', 4, ' ', 4);
WriteLn (9, ' ', 9, ' ', 9, ' ', 9);
ReadLn;
end.
//Вы используете крайне нерациональный способ решения, к тому же просчитали не все возможные варианты исхода событый.
//Перебирать все возможные варианты не вижу смысла, ни один программист не будет вручную все считать и перебирать, поэтому привожу свое решение:
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int max, min, num, mid;
cout « "Введите 1 число: "; cin » max;
cout « "Введите 2 число: "; cin » min;
if (min > max)
{
num = max;
max = min;
min = num;
}
cout « "Введите 3 число: "; cin » num;
if (num > max)
mid = max;
else if (num < min)
mid = min;
else
mid = num;
cout « endl « "Среднее число: " « mid « endl;
return 0;
}
Чтобы перевести десятичное число в 2-чную систему, нужно это число последовательно делить на 2 с остатком. Например, переведём 83.
Делим
83 : 2 = 41 (остаток 1)
41 : 2 = 20 (остаток 1)
20 : 2 = 10 (остаток 0)
10 : 2 = 5 (остаток 0)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
Теперь выписываем последний результат деления (у нас это 1) и после него все остатки в обратном порядке: 0 1 0 0 1 1
Получается число 1010011
Проверяем: