Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Количество чётных чисел среди [1..',n,']: ',n div 2);
End.
//Pascal
var N: byte;
begin
write('Введите двузначное число = '); readln(N);
writeln(N mod 10, N div 10);
readln;
end.
Зашифрованное слово - криптоанализ
При шифровании не использовался рисунок справа. Это так называемый масонский шифр. Чтобы расшифровать, нужно символ как бы подставить в рисунок. Например, 1 символ показывает, что слева, сверху и снизу от него есть перегородка. В сетке нам подходит две буквы - Й, К. Точка указывает, что буква нужна вторая, а именно К. Возьмем 5 символ. В сетку он не подходит, а подходит в рисунок посередине, перекрестие, и именно вверх. Это буквы С, Т. Точка указывает на букву Т. Отсутствие точки означает, что берется первая буква
<span>import random as r
mas = []
for i in range( 10)<span>:
</span> b = r.randint(ord("A"), ord("Z"))
mas.append(chr(b))
print(mas)
print(sorted(mas))
</span>