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>
Алфавит = 10 цифр+26 маленьких букв+26 больших букв = 62символа.
ближайщая степень двойки 64 = 2^6 т.е. 6 бит на символ
6*10 = 60 бит весит пароль
870*8-60 = 6 900 бит = 862.5 байт
862 байт
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Kirill(r:integer);
begin
var n:=0;
for var i:=1 to 9 do
for var j:=0 to 9 do
for var k:=0 to 9 do
if i+j+k=r then begin Write(i,j,k,' '); n+=1 end;
if n>0 then Writeln(NewLine,'Найдено чисел: ',n)
else Writeln('Таких чисел не существует')
end;
begin
var r:=ReadInteger('Введите число R:');
Kirill(r+3)
end.
<u>Пример</u>
Введите число R: 11
149 158 167 176 185 194 239 248 257 266 275 284 293 329 338 347 356 365 374 383 392 419 428 437 446 455 464 473 482 491 509 518 527 536 545 554 563 572 581 590 608 617 626 635 644 653 662 671 680 707 716 725 734 743 752 761 770 806 815 824 833 842 851 860 905 914 923 932 941 950
Найдено чисел: 70
1) a x b = 1 при a=1 возможно (если b=1)
2) a x b = 1 при а=0 противоречиво, результат 0
3) a + b = 0 при a=1 противоречиво, результат 1
4) a + b = 1 при a=0 возможно (если b=1)