Обозначим точку нулем, а тире - единицей.
Тогда двухзначный код может образовать два в квадрате комбинаций, трехзначный код может образовать два в третьей степени комбинаций, а четырехзначный - два в четвертой степени комбинаций.
Ответ: 28 символов.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadArrInteger(10).Printlines
end.
Задание #1:
3) Компьютерная мышь
Задание #2
2) Графический 3) SILK-интерфейс 4) Командный
Задание #3
1) Комбинации символов
Задание #4
1) Пользовательский интерфейс
Задание #5
Знание
Задание #6
1.B
2.D
3.C
Задание #7
1) WIMP-интерфейс
Задание #8
2) Окно 4) Манипулятор
Задание #9
2) Голосовой
Задание #10
4) SILK
2 часть теста
Задание 1
4) Панели задач
Задание 2
2) Ярлык
Задание 3
1) Главное меню
Задание 4
?
Задание 5
2) Рабочий стол
Задание 6
2) Окно
Задание 7
Задание 8
2) Меню
Задание 9
3) WIMP
Задание 10
2) Диалоговые окна
1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН
КОН
3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН
var
a,b,i: integer;
begin
writeln ('введи два числа');
read (a,b);
if a>b then writeln (a,'большее число')
else
writeln (b,'большее число')
end.