Опишите модель поставленной задачи соблюдая следующие пункты: а) входные данные программы б) выходные данные программы. с) цельпроектированиепрограмм; д) назначение программы е) область применения

20, если он возьмёт 19 правых, то 20-ая уже гарантирована будет левой и пара будет составлена. если он возьмёт меньше двадцати перчаток, то есть шанс, что все они будут правые.

ответ: 20.

program z2_65; uses crt; label a1,a2,a3,a4,a5,a6,a7; var a,s,h,rv,ro,p: real; n: integer; beginclrscr; writeln('укажите номер пункта: '); writeln('1. дана сторона треугольника.'); writeln('2. дана площадь треугольника.'); writeln('3. дана высота треугольника.'); writeln('4. дан радиус вписанной окружности треугольника.'); writeln('5. дан радиус описанной окружности треугольника.'); read(n); case n of1: begin write('a='); read(a); goto a1; end; 2: begin write('s='); read(s); goto a2; end; 3: begin write('h='); read(h); goto a3; end; 4: begin write('r='); read(rv); goto a4; end; 5: begin write('r='); read(ro); goto a5; end; elsebeginwrite('такого номера пункта нет.'); goto a7; end; end; a1: rv: =a/2; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a2: a: =sqrt(4*s/sqrt(3)); h: =2*s/a; rv: =a/2; ro: =a/sqrt(3); goto a6; a3: a: =2*h/sqrt(3); s: =a*h/2; rv: =a/2; ro: =a/sqrt(3); goto a6; a4: a: =2*rv; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a5: a: =sqrt(3)*ro; s: =(a*a*a)/(4*ro); h: =2*s/a; rv: =a/2; a6: writeln('a=',a: 2: 2); writeln('s=',s: 2: 2); writeln('h=',h: 2: 2); writeln('r=',ro: 2: 2); writeln('r=',rv: 2: 2); a7: readkey; end.

мне сказали,что 4 секунды

или

4e10 (4 в степени 10) х 2 х 8 ( 1 байт = 8 бит)= 640000000000 бит общий объём текстогого файла в битах.  640000000000 / 512e3( 512 в степени 3= 512 килобит)=1250000 секунд=347,22 часа =14,5 суток

1)а

var a: real;

begin

readln(a);

a1 : = a*a;   /получили а^2a : = a1*a1;   /получили a^4

a : = a1*a*a;   /получили a^(4+4+2)

writeln(a);

end.

1б)

var x: real;

i: integer;

begin

readln(a);

a1 : = a*a*a;   /получили а^3a : = a1*a1*a1;   /получили a^9

a : = a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

2)

var a: real; beginreadln(a); writeln('высоты равны', a*a*sqrt(3)/4*a); writeln('радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4); writeln('радиус описанной окружности', a*a*sqrt(3)/4*2/3*a); end.

3)var a: real; beginreadln(a);

writeln('в килобайтах' a/1024);

writeln('в мегабайтах' a/(1024*1024));

end.