Question

Дана программа на языке Паскаль. Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 69, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки. program ves; const A1='легкая категория'; A2='средняя категория'; var b : integer; begin write('введите вес спортсмена ?= '); readln(?); if ? < ? then writeln(A1) else writeln(A2); readln; end.

Answer 1

program ves;

const

A1='легкая категория';

A2='средняя категория';

var

b : integer;

begin

write('введите вес спортсмена b= ');

readln(b);

if b < 69 then writeln(A1)

else writeln(A2);

readln;

end.

Answer 2

Для заполнения пустых мест в программе, нужно добавить значения входных данных (вес спортсмена) и заменить вопросительные знаки на соответствующие переменные. Также, чтобы включить русские символы, необходимо добавить директиву {$codepage utf8} в начало программы. Вот исправленная версия программы:

pascalCopy code
program ves;

{$codepage utf8}

const
  A1 = 'легкая категория';
  A2 = 'средняя категория';

var
  weight: integer;

begin
  write('Введите вес спортсмена: ');
  readln(weight);

  if weight < 69 then
    writeln(A1)
  else
    writeln(A2);

  readln;
end.

Теперь программа просит пользователя ввести вес спортсмена, а затем выводит весовую категорию в зависимости от значения веса. Если вес меньше 69, программа выведет "легкая категория", в противном случае - "средняя категория".