Program aliona;
var a,b:integer;
c,p1,p2:real;
begin
writeln('vvedite sirinu =');
readln(a);
writeln('vvedite dlinu=' );
readln(b);
p1:=0;
p2:=0;
c:=b/2;
p1:=(a+b)*2;
p2:=4*c;
writeln('p1=',p1,'p2=',p2);
readln;
<span>end.</span>
Var
x, y: real;
b: boolean;
begin
Write('Введите через пробел координаты X,Y: ');
Readln(x, y);
{ рис 21 }
if y < 0 then b := false
else
if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
else b := (y <= 3 - x / 2);
Writeln(b);
{ рис 23 }
if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
else
if x<=0 then b:=true
else b:=(sqr(x)+sqr(y)>=sqr(3));
Writeln(b)
end.
Тестовое решение:
Введите через пробел координаты X,Y: 3.4 2
False
True
Дано:
v1=2^18 бит/c - скорость получения 1024 Кбайт Машей за t1 секунд
v2=2^12 бит/с - скорость получения 12 Mбайт Андреем за t2 секунд
Найти: t=t1+t2
Решение:
1024 Кбайт =2^10 *2^13 бит = 2^23 бит
t1= 2^23 :2^18 =2^5 секунд
12 Мбайт = 12*2^23 бит =3*2^25 бит
t2=3*2^25 : 2^12 =3*2^13 секунд
t=t1+t2= 2^5+3*2^13=2^5*(1+3*2^8) =32*769=24608 секунд
<span>n = int(input("n = "))
a = int(input("a = "))
p = <span>1
</span>for i in range(1,n+1)<span>:
</span>----p *= (a+i)**<span>2
</span>print('P =',p)</span>
1.Гигобайт, Таробайт.
2. Микрофон?(Не точно)
3. -
4. -
5. -
6. Копировать
7. 1100? (Не точно)
8. Хз ---