Program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=<span>x+y+1;
</span>if x*y*z<min then min:=x+y+1;
write(min+1);
end.
N=2^x
Так как, следуя из определения "Сообщение, уменьшающее неопределенность знаний человека в 2 раза, несет для него 1 бит инф-и", то неопределенность инф. сообщения равному 44 бита снижается в <span><span>5,459432</span></span>≈5,5 раза
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
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>