Какие методы инсталляции допускает windows 2000? (укажите несколько вариантов ответа) 1) инсталляция с дискет 3.5 дюйма и дистрибутивного cd 2) инсталляция с локального жёсткого диска )) a 3) инсталляция только с дистрибутивного cd или локального жёсткого диска )) a 4) инсталляция по сети (с дискетами и без) и локального жёсткого диска

По мне так ответ номер четыре

№1

var a,b,v: real; begin readln(a,b); v: =4/3*pi*sqr(b/2)*(b/2); a: =sqr(a)*a; v: =a-v; writeln(v: 7: 4);

end.

 

№2

var s: string[6]; begin readln(s); if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))= (strtoint(s[4])+strtoint(s[5])+strtoint( then writeln('является') else writeln('не является');

end.

 

№3

var a,b: integer; begin readln(a,b); if (a< 90) and (b< 90) and (180-a-b< 90) then writeln('остроугольный') else if (a=90) or (b=90) or (180-a-b=90) then writeln('прямоугольный') else writeln('тупоугольный'); end.

 

 

 

1) 

var v1,a,v2,v3,d: integer;

begin

readln(a,b);

a: =a/10;

v1: =a*a*a;

v2: =4/3*3,14*(d/2)(d/2)(d/2);

v3: =v1-v2;

writeln("объем выплеснутой воды ",v3);

readln();

end.

 

2) 

var

i,num,a,b,c,d,e,f, sum1,sum2: integer;

 

begin

readln(num);

a: =num div 100000;

num: =num mod 100000;

b: =num div 10000;

num: =num mod 10000;

c: =num div 1000;

num: = num mod 1000;

d: =num div 100;

num: = mod 100;

e: =num div 10;

f: =num mod 10;

  sum1: =a+b+c;

sum2: =d+e+f;

if (sum1=sum2) then

writeln("да, является.");

else writeln("нет, не является.");

readln();

end.