Держи ))) удачи )))
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.
2*(a*a-b*b)
(a+b)*(c+d)
(2*a+b)/(c-2*d)
Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.
Чтобы не было такого, что 1 человек несколько раз регистрировался и также, чтобы человек мог восстановить свою страницу в любое время,даже если его взломали.
512*32*64=1048576 символов
1048576*16=16 777 216 бит (информационный объём файла)
1,44*1024*1024*8=12 079 595, 52 бит объём дискеты в битах
16 777 216/12 079 595,52=1,38 - нужно две дискеты