1 байт = 8 бит . 1 Кбайт = 1024 байта . 1 Мбайт= 1024 Кб .1 Гбайт = 1024 Мб
2 байта = 16 бит
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>
Решение - в прилагаемом файле.
(¬Y ∨ X) ∨ (Y ∧ Z) ∧ ¬X
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>