Question

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

Answer 1

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

Answer 2

Программа, которую вы предоставили, содержит несколько ошибок и недостающих элементов. Я исправлю код и заполню пустые окошки. Вот исправленный код:

pascalCopy code
program ves;
const
  A1 = 'легкая категория';
  A2 = 'средняя категория';
var
  v : integer;
begin
  write('Введите вес спортсмена: ');
  readln(v);

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

  readln;
end.

Пояснение:

1. Переменная v объявлена как integer, чтобы хранить вес спортсмена.
2. write('введите вес спортсмена = '); readln( ); - в этой строке должна быть вызвана функция readln(v), чтобы пользователь мог ввести значение веса спортсмена, которое будет сохранено в переменной v.
3. В операторе if не хватает условия после if v < 69 then. Нужно дописать условие, например: if v < 69 then.
4. Вместо < в строке if < then writeln(A1) должно быть v < 69.

После внесения этих исправлений программа будет правильно определять весовую категорию спортсмена в зависимости от его веса.