<span><span>program qwr;
uses crt;
var
f : real;
i : byte;
z,a : array [0..3] of real;
begin
for i:=1 to 3 do
begin
write('z[ ',i,']= ');
readln(z[i]);
end;
for i:=1 to 3 do
begin
write('a[ ',i,']= ');
readln(a[i]);
end;
writeln(' ______________________');
writeln(' Z[i] | A[i] | f ');
for i:=1 to 3 do
begin
f:=exp(ln(z[i]+a[i])*(3/2));
writeln(' ',z[i]:(3),' | ',a[i]:(3),' | ',f:(3):(2));
end;
writeln(' _______|_______|______');
end.</span></span>
Если в алфавите 16 символов, то для записи одного символа необходимо log(2)16 = 4 бита (2^4=16)
2 Кбайт = 2*1024 байт = 2*1024*8 бит
Количество символов = 2*1024*8/4 = 4096
Program koordunatu;
Var
x,y:real;
Begin
Write( 'x=>' );
readln(x);
Write( 'y=>' );
readln(y);
if (x=0) and (y=0) then
writeln('M(0,0)')
else
if x=0 then
writeln('OY')
else
if y=0 then
writeln('OX');
if (x>0) and (y>0) then writeln('І');
if (x<0) and (y>0) then writeln('II');
if (x<0) and (y<0) then writeln('III');
if (x>0) and (y<0) then writeln('IV')
End.
Заменим то, что знаем. Я буду конечные буквы писать маленькими.
ПДХьгЕЛТГПЛУЪДПГмУХУБгЪБЛсЦВДчУДмсяЛТГЪХГчьЛТУВкД
Очевидно, что первое слово - "деньги", то есть Д->П, Е->Д, Н->Х, И->Е
деньги ЛТГдЛУЪеПГмУнУБгЪБЛсЦВечУемсяЛТГЪнГчьЛТУВке
Выделим слово ЛсЦВечУемся, которое, видимо, значит "встречаемся".
В->Л, Т->Ц, Р->В, А->У
деньги вТГдваЪеПГманаБгЪБ встречаемся вТГЪнГчьвТарке
Выделим слово нГчь, которое, очевидно, означает "ночь".
О->Г
деньги вТодваЪеПоманаБгЪБ встречаемся вТоЪночьвТарке
Похоже, что фраза вТоЪночьвТарке означает "в полночь в парке"
П->Т, Л->Ъ
деньги в подвале Пома на БглБ встречаемся в полночь в парке
Д->П, У->Б
Теперь всё ясно:
деньги в подвале дома на углу встречаемся в полночь в парке
Всё!
While (tnum != 0) //tnum, tden - числитель и знаменатель искомой дроби
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;