Program P1;
var l,r,a,b:real;
begin
readln(l,a,b);
r:=l/(2*pi);
if a*a+b*b<r*r then writeln('YES')
else writeln('NO');
end.
Пример:
20 3 4
NO
N=2^i где n-мощность алфавита, 2-основание(сколькими символами кодируется символ), i-разрядность(длина числовой строки). <u>Чтобы узнать, достаточно ли мощности алфавита для кодирования, нужно сравнить данную мощность с количеством букв в алфавите.</u>Пример на русском: n-32, а количество наших букв равно 33. Следовательно, нужно взять большую разрядность - не 5, а 6. Тогда мы получаем n-64, чего хватает не только на обозначение букв, но и для знаков препинания. Если вы имели в виду код ASCII, то прогоните по выделенному алгоритму.
1байт=8бит
1кб=1024байт
6*8192-64х=32х
96х=49152
х=512
Проверка:
49152-32768=32*512
32*512=16384
49152-32768=16384
х=512бит
либо х=64 байта
function Max(a, b, c: integer): integer;
var
m: integer;
begin
if a > b then
m := a
else
m := b;
if c > m then
m := c;
Max := m;
end;
function Min(a, b, c: integer): integer;
var
m: integer;
begin
if a < b then
m := a
else
m := b;
if c < m then
m := c;
Min := m;
end;
procedure Swap(var a, b: integer);
var
t: integer;
begin
t := a;
a := b;
b := t;
end;
var
a, b, c, t: integer;
begin
Write('Введи через пробел три числа: ');
Read(a, b, c);
Writeln('Max = ', Max(a, b, c), ', min = ', Min(a, b, c));
if b > a then
Swap(a, b);
if c > b then
begin
Swap(b, c);
if b > a then
Swap(a, b);
end;
Writeln(a, ' ', b, ' ', c);
end.
Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(''Yes'')
else writeln(''NO'');
end.