Вариантов масса. первое что приходит на ум взято из "похождения бравого солдата швейка" если не ошибаюсь. там в свою очередь этот способ упоминался как шифрование данных при передаче приказов в войне с наполеоном. суть - командующие перед выступлением договаривались какую книгу использовать(например войну и мир, естественно одного и того издания(конечно же войну и мир при наполеоне еше никто не написал, возьми другую, сча даже лень придумывать)). когда командующие уже разъехались по местам дисколации им высылали шифры, состоящие сплошь из цифр. а цифры в свою очередь это номера страниц и слов в той книге, про которую изначально договорились. таким образом, даже если гонца перехватят, враги получат только набор цифр, не зная книги ключа не возможно понять смысл шифра.
<span>т.к. мощность компьютерного алфавита равна 256, то I = 1 байт. Поэтому К = 1 1024/1 = 1024 символов в тексте. 3) V = 1024/10 = 102 сим/мин. Ответ: скорость ввода текста 102 символа в минуту.</span>
<span>program mas;
uses crt;
var a, b, c, k:integer;
begin
writeln('Введите три числа');
readln(a);
</span>readln(b);<span>
</span>readln(c);<span> </span><span>
for i:=1 to 3 do begin
if i>0 then k:=k+1;
end;
writeln('Положительных чисел',k);
readln;
end.
Вроде так.
Точно не знаю, давно на этом языке не кодил</span>
Function region(x,y: real): boolean;
begin if ((x>=0) and (y>=0) and (sqr(x)+sqr(y)<=25)) or
((x<=0) and (abs(y)<=abs(x+5))) then
region:=true
else region:=false;
end;
{основная программа}
var x,y: real;
begin
write('x y - через пробел: '); readln(x,y);
if region(x,y) then
writeln('true');
else writeln('false');
end.
<span>
</span>