Ничего сложного. Надо просто набрать предложенный в последней картинке текст. И отформатировать по правилам, которые в первой картинке. Результат во вложении.
var
n,i,j,max,k: Integer;
lname, name: array [1..100000] of String;
y,g,a:array [1..100000] of longint;
begin
Read(n);
for i:=1 to n do
begin
read(lname[i]);
read (name[i]);
read(y[i],g[i]);
if (max<g[i]) or (i=1) then
max:=g[i];
end;
for i:=1 to n do
if g[i]=max then
begin
writeln(lname[i], ' ', name[i]);
j:=j+1;
a[j]:=i;
end;
for i:=1 to j do
write(g[a[i]], ' ');
end.
Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
Работой всех составляющих компьютера занимается процессор, который обрабатывает всю получаемую от пользователя информацию, НО так же работоспособность всех комплектующих ещё на ранней стадии запуска контролирует чип с BIOS. Его задача - проверить систему на наличие ошибок и сбоев. Если что-то будет не так, то компьютер попросту не сможет включиться.