Соревнования легкоатлетов Результаты соревнования по забегу на 100 ми прыжкам в длину даны в виде
таблицы.
Определите наилучшие результаты состязания по забегу на 100 ми прыж-
кам в длину. Победителя забега выделите красным цветом. Победителя со-
ревнования по прыжкам в длину выделите синим цветом.
Забег на 100 м, вс
Прыжок в длину, вм
ФИО
Зиятбек А.
Баймбет М.
Каражан А.
Костев Г.
Елцин Т.
Данабек С.
Атахан К.
Маулен Б.
Иванов С.
10,2
12,3
9,1
8,5
7,6
6,9
1,3
10,8
8,2
2,5
2,58
2,42
2,81
2,76
2,9
2,78
2,8
2,83
6.
My

носи́тель) — любой материальный объект или среда[уточнить], используемый человеком достаточно длительное время сохранять (нести) в своей структуре занесённую на него информацию, без использования дополнительных устройств (например, источника энергии).

Это может быть, например, камень, дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченным слоем (в бобинах и кассетах), фотоматериал, пластик со специальными свойствами (например, в оптических дисках) и другие.

Носителем информации может быть любой объект, с которого возможно (доступно) чтение (считывание) имеющейся на нём (нанесённой, записанной) информации.

program weight_class;

var x, y:integer;

label 10,20;

 begin

   10:Writeln ('введите вес спорсмена в кг');

   Readln(x);

   if x<69 then

     Writeln('Спортсмен весом ', x, 'кг, относится к легкой категории');

   if (x>=69) and (x<85) then

   Writeln('Спортсмен весом ', x, 'кг, относится к средней категории');

   if (x>=85) and (x<105) then

   Writeln('Спортсмен весом ', x, 'кг, относится к тяжелой категории');

    if x>=105 then

   Writeln('Спортсмен весом ', x, 'кг, относится к супертяжелой категории');

   Writeln(' Будете еще вводить вес спортсмена: 1-Да, другая любая цифра-Нет');

   Readln (y);

   if y=1then

     goto 10;

  end.

Объяснение: