Uses GraphABC;
Var A:array of point;
Begin
A:=new point[3];
Brush.Color:=clGreen;
A[0]:=(Window.Width div 2,170);
A[1]:=(Window.Width div 2 +80,230);
A[2]:=(Window.Width div 2 -80,230);
Polygon(A);
A[0]:=(Window.Width div 2,120);
A[1]:=(Window.Width div 2 +50,180);
A[2]:=(Window.Width div 2 -50,180);
Polygon(A);
A[0]:=(Window.Width div 2,90);
A[1]:=(Window.Width div 2 +30,130);
A[2]:=(Window.Width div 2 -30,130);
Polygon(A);
Brush.Color := clBrown;
FillRect(A[0].X-10,230,A[0].X+10,250);
End.
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
<span>Алфавит шестнадцатеричной системы счисления - 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F</span>
Для установки операционной системы :
1) Заходим в BIOS и устанавливаем загрузку с CD-ROM
2) Втыкаем в CD-ROM установочный диск
3) Выходим из биоса сохраняя настройки
4. Автоматический ребут ( перезагрузка компьютера )
5. Начинается процесс загрузки с CD ( если только имеет верный формат )
6. Далее всё на русском
После установки :
Программа установки проверяет пк
И вводишь данные
всё.
Сделай лучшим решением заранее благодарен
У вас начало неправильное должно быть первой строкой program ; и не правильно'vari'вместо'var' цикл работать не будет так как не верный указан параметр