Ответы

Ответы

Тема 1. Теоретические основы информатики

1.1 рис.1

1.2 рис.2

Том владеет: собака, рыжая, Рекс
Кейт владеет: лошадь, белая, Быстрая; собака, черная, Резвый 1 бит
64 машинные команды
10 бит
1 путь: 6, 1, 10, 2, 5, 8 12,5 с

Тема 2. Информационные и мультимедиа технологии

Прибыль: 12717763 у. е.
Творческое задание (проверка по критериям)
Творческое задание (проверка по критериям)

Тема 3. Алгоритмизация и технологии программирования

TYPE

  olimp=record

  fam:string[30];

  nam:string[20];

  ot:string[20];

  oc:integer;

  end;

VAR

  uch:array[1..250]of olimp;

  n, kol, i,j:integer;

  dat:string;

  a:array[1..6]of string[30];

  max, code, k:integer;

BEGIN

writeln ('Введите число участников') ;

  ReadLn(n);

  max:=0;

  for i:=1 to n do

  begin writeln ('Введите ФИО и баллы участников через пробелы');

  ReadLn(dat);

  k:=6;

  for j:=length(dat) downto 1 do

  if dat[j]=' '

  then

  begin

  a[k]:=copy(dat, j+1,length(dat)-j);

  delete(dat, j,length(dat)-j+1);

  k:=k-1;

  end;

  uch[i].fam:=dat;

  uch[i].nam:=a[2];

  uch[i].ot:=a[3];

  for j:=4 to 6 do

  begin

  val(a[j],k, code);

  uch[i].oc:=uch[i].oc+k;

  end;

  if max<uch[i].oc then max:=uch[i].oc;

  end;

  for i:=1 to n do

  if max=uch[i].oc then WriteLn('Абсолютный победитель многоборья ',uch[i].fam,' ',uch[i].nam,' ',uch[i].ot);

END.