Question

Дана программа на языке Паскаль. Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 68, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки. 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('введите вес спортсмена = ');

readln(s);

if s<68 then writeln(A1) else writeln(A2);

end.

предпоследняя команда ( readln; ) не нужна

Answer 2

Для того чтобы завершить программу на языке Паскаль и заполнить пропущенные места, вам необходимо добавить условие в операторе if. Условие должно проверять, является ли введенное значение веса s меньше 68. Если это верно, то программа выводит "легкая категория" (A1), иначе она выводит "средняя категория" (A2). Также, не забудьте добавить значение s после readln() в строке считывания данных.

Вот исправленная версия программы:

pascalCopy code
program ves;

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

var
  s: integer;

begin
  write('введите вес спортсмена = ');
  readln(s); // Добавлено считывание значения веса спортсмена
  if s < 68 then
    writeln(A1)
  else
    writeln(A2);
  readln;
end.

Теперь программа должна работать корректно и выводить соответствующую весовую категорию спортсмена.