Компьютеры в интернете различают с помощью IP-адреса(<span>Интернет-протокол) который присваивается компьютеру при подключению к интернету.
Документы в интернете различают по их названию и типу файла</span>
1) Не хватка мощностей компьютера, либо он сильно загружен в данный момент, либо он серьезно "засран".
2) У вас скорее всего закончилось свободное место на диске. Рекомендую вам почистить диск в ручном или же в автоматическим режиме. А также можно купить еще один диск.
Program qw;
uses crt;
Type
Atlas=Record
country,capital:string;
area,people:real;
end;
ps=File of atlas;
Var f:ps;
z,t:atlas;
Begin
assign(f,'1.dat');
rewrite(f);
z.country:='Латвия'; z.area:=67.7;
z.people:=2.6; z.capital:='Рига';
write(f,z);
z.country:='Литва'; z.area:=65.2;
z.people:=3.4; z.capital:='Вильнюс';
write(f,z);
z.country:='Польша'; z.area:=313;
z.people:=34.8; z.capital:='Варшава';
write(f,z);
z.country:='Украина'; z.area:=603.7;
z.people:=50; z.capital:='Киев';
write(f,z);
z.country:='Россия'; z.area:=17075.4;
z.people:=139; z.capital:='Москва';
write(f,z);
Close(f);
assign(f,'1.dat');
reset(f);
read(f,t);
while not(eof(f)) do
begin
read(f,z);
if t.people/t.area < z.people/z.area then t:=z;
end;
close(f);
writeln('Cтранa с наибольшей плотностью населения:');
writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.
Pascal
var
m : integer;
a,b,y : real;
begin
writeln ('menu:');
writeln ('1) y= (a+b)2');
writeln ('2) y= a^2-b^2');
writeln ('3) y= 1/(a+b)')
writeln ('a=');
readln(a);
writeln ('b=');
readln(b);
readln (m);
case m of
1: y := (a+b)*2;
2: y :=sqr(a)-sqr(b);
3: y := 1/(a+b);
end;
writeln ('y=',y:3:2);
end.
Четырехзначное шестнадцатиричное число содержит четыре двоичные тетрады, старшая (левая) из которых может быть неполной. Наименьшее число будет иметь 1 в старшей тетраде и за ней должны следовать пять нулей. Получаем:
1 0000 0111 1111(2)=107F(16)