Ответ:
var
n1, n2, dif: real;
begin
readln(n1, n2);
dif:= n1-n2;
if n1-n2 > 0 then
writeln('Разность положительная. Разность = ', dif)
else if n1-n2 < 0 then
writeln('Разность отрицательная. Разность = ', dif)
else
writeln('Разность равна нулю. Разность = ', dif);
end.
Объяснение:
Может быть использовано
10 цифр+ 26 строчных букв + 26 прописных + 6 спец символов = 68 символов всего.
Для кодирования 68ми символов достаточно диапазона чисел от 0 до 67
(2^6=64)<67<(2^7=128)
Таким образом необходимо минимум 7 бит на символ.
7*9=63 бита на один пароль.
63*100=6300 битов на 100 паролей.
6300/8 = 787,5 байт.
Округляем в большую сторону - ответ 788 байт
Program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.
Вариантов масса. первое что приходит на ум взято из "похождения бравого солдата швейка" если не ошибаюсь. там в свою очередь этот способ упоминался как шифрование данных при передаче приказов в войне с наполеоном. суть - командующие перед выступлением договаривались какую книгу использовать(например войну и мир, естественно одного и того издания(конечно же войну и мир при наполеоне еше никто не написал, возьми другую, сча даже лень придумывать)). когда командующие уже разъехались по местам дисколации им высылали шифры, состоящие сплошь из цифр. а цифры в свою очередь это номера страниц и слов в той книге, про которую изначально договорились. таким образом, даже если гонца перехватят, враги получат только набор цифр, не зная книги ключа не возможно понять смысл шифра.
program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.