Program Pro1;
<span>type Date = record
day : 1..31;
mounth : 1..12;
year : integer;
end;
Person = record
SurnameName : string;
Birthday : date;
end;
<span>ListOfPeople = array [1..50] of person;
var</span></span>
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;<span>
begin
for i:=1 to 50 do
begin</span>
<span>Write('<span>Human '+IntToStr(i)+':')
</span>Write('Input </span>Surname and <span>Name:')
</span>ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year)<span><span>:')
</span>Read(People[i].</span>Birthday.day, People[i].Birthday.mounth, <span><span>People[i].Birthday.year);
</span>end;
//
</span><span>JoungHumanIndex:=1;
//
</span>JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year<span><span> * 32 * 13;
</span>for i:=2 to 50 do
if </span><span>JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year<span> * 32 * 13 then
begin</span></span>
//
JoungHumanIndex:=i;
//
<span><span>JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;</span>
</span>
<span>WriteLn('Most joung human: '+</span>People[JoungHumanIndex]<span><span><span>.<span>SurnameName</span></span>);
</span>end.</span>
Ответ прикреплен в документе Word
1) 2048
2) 2
3) 32
4) 3
Если помог, нажимайте "Спасибо"
Uses crt,graphABC;
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do Go (1,0);
while y<=350 do Go (0,1);
while x>=150 do Go (-1,0);
while y>=150 do Go (0,-1);
until keypressed;
<span>end.
Так сойдет? :)</span>