Question

Program ves; const A1='легкая категория'; A2='средняя категория'; var s : integer; begin write('введите вес спортсмена _ = '); readln(_); if _ < _ then writeln(A1) else writeln(A2); readln; end.

Answer 1

Program ves;

const

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

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

var

s : integer;

begin

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

readln(s);

if s < {тут нужно ввести какое то число которое вам должны были дать в условии задачи} then writeln(A1) else writeln(A2);

readln;

end.

Answer 2

It seems like you're trying to write a program in Pascal that determines the category of a sportsman based on their weight. However, the code you provided is incomplete and contains some syntax errors. Here's a corrected version of your code:

pascalCopy code
program ves;
const
  A1 = 'легкая категория';
  A2 = 'средняя категория';
var
  weight: integer;

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

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

  readln;
end.

In this code, I've made the following changes:

1. Declared the variable weight to store the weight of the sportsman.
2. Corrected the readln statement to read the weight into the weight variable.
3. Replaced the underscores _ in the if statement with the actual weight values to make a meaningful comparison.

Now, when you run this program, it will prompt you to enter the weight of the sportsman. Based on the weight entered, it will determine whether the sportsman belongs to the "легкая категория" (lightweight category) or "средняя категория" (middleweight category) and display the corresponding category on the screen.