Выбери верный ответ
c="14> 6
c=0
c=1
не является высказыванием. ​

a в квадрате плюс b в квадрате:  

;

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.

16 - 2^4 - 4 бита = 0.5байт

256 - 2^8 - 8 бита = 1байт

128 - 2^7 - 7 бита

4 - 2^2 - 2 бита = 0.25байт

512*1024*8 =  4`194`304 бит

640*480 = 307`200 бит

4 - 6

16 - 3

128 - 1

256 - 1

var a,b,c,d: real;

begin

    read(a,b,c,d);

    if ((a< c) and (b< d)) or ((b< c) and (a< d)) then

        writeln('впишется')

    else writeln('не впишется');

end.

var a,b,c: real;

begin

    read(a,b,c);

    if (a> b) and (a> c) then a: = b*c;

    if (b> a) and (b> c) then a: = a*c;

    if (c> b) and (c> a) then a: = b*a;

    writeln(a);

end.

3)var x,y,z,u: real; function max(x,y,z: real): real; begin  if (x> =y) and (x> =z) then max: = x;   if (y> =x) and (y> =z) then max: = y;   if (z> =y) and (z> =x) then max: = z; end; function min(x,y,z: real): real; begin  if (x< =y) and (x< =z) then min: = x;   if (y< =x) and (y< =z) then min: = y;   if (z< =y) and (z< =x) then min: = z; end; begin      read(x,y,z);       u: =(max(x,y,z)*max(x,y,z)-exp(x*ln(/(sin(2*x)+max(x,y,z)/min(x,y,z));       writeln(u); end.