Меню "Пуск" или Главное меню<span> системы Windows</span>
для расшифровки нужно применить обратный алгоритм
1) написать название животного
2) для первой буквы названия найти предыдущую по алфавиту
Животные: (некоторые подбирались исходя из ответа)
Улитка - Т
Бык - А
Лев - К
Енот - Д
Ёж - Е
Сова - Р
Зебра - Ж
Белка - А
Утка - Т
Эму - Ь
Ответ - Так держать
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,20,84);a.PrintLn;
Writeln(a.Where(t -> (t.isOdd)and(t mod 3 = 0)and(t mod 10 <> 0)).Count);
end.
Пример:
64 64 76 31 21 81 53 30 58 38 66 69 57 65 41
4
Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.
4 короля:
в рядах 1,3,5 - нет
в рядах 2,4 - в столбиках2,4