Program p1;
var a:integer;
begin
a:=random(89)+10;
writeln('a= ',a);
writeln('Summa tsifr= ',a mod 10+a div 10);
writeln('4islo naoborot= ',a mod 10, a div 10);
<span>end.
program p2;
var a:integer;
begin
a:=random(899)+100;
writeln('a= ',a);
if (a mod 10)=((a div 100) mod 10) then writeln('POLIMER')
else writeln('NE POLIMER');
end.</span>
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Такое устройство называется датчик.
Как правило, электрический.
Пароль формируется из 6 символов,
каждый символ кодируется i - битами.
2^i =6; ---> 2^2< 6 < 2^3 ---> 3 бита для кодировки одного символа.
В одном пароле 11 символов, длина пароля =3*11=33 бита.
Каждый пароль - целое количество байтов :
33 бита =33:8 байтов =5 байтов
Для 20-ти паролей: 5*20=100 байтов.
Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>