Var x,y: real;
<span>begin
</span><span> write('x y через пробел: '); readln(x,y);
</span><span> if ((x>=0) and (x<=6) and (y<=6-x) and (y>=0)) or
</span><span> ((-6<=x) and (x<=0) and (y<=0) and (y>= -6-x)) then
</span><span> writeln('точка принадлежит области')
</span><span> else writeln('точка не принадлежит области');
</span><span>end.
</span><span>
</span><span>x y через пробел: -3 -4
</span><span>точка не принадлежит области
</span>x y через пробел: -3 -2
<span>точка принадлежит области</span>
x y через пробел: 1 1.5
<span>точка принадлежит области
</span>x y через пробел: 3 4
<span>точка не принадлежит области
</span><span>
</span>
Какой язык? Я напишу как это делается на С.
int massiv [5];
int i=0;
for(i=0; i<5; i++){
massiv[i]=massiv[i]*2;
}
for(i=0; i<5; i++){
printf("%d ", massiv[i]);
}
Как-то так!)
Если чего-то не то, пишите, я отвечу!
<span>1. 100000 Кбайт = 100 Мбайт
2. 512 бит < 50 байт
3. 1024 байт < 1 Кбайт
4. 8 Гбайт = 80000 Мбайт
5. 16 байт > 128 бит</span>
Program N3;var b,a:integer;begin b:=0; write('Введите число - ');readln(a); repeat a:=a*3; b:=b+1; until a>100; writeln('Нужно умножить ', b, ' раз');end.