Question

ПАМАГИТЕ! на языке паскаль: В танцевальный коллектив набирают учеников, измеряя их вес V и рост R. В коллектив пройдут только те, у которых V<=R-100. Запросите вес и рост претендента и дайте ответ, пройдет ли он в танцевальный коллектив.

Answer 1

Вот решение задачи на языке Паскаль:

program DanceCollective;

var
  v, r: integer;

begin
  writeln('Введите вес претендента:');
  readln(v);
  
  writeln('Введите рост претендента:');
  readln(r);
  
  if v <= r - 100 then
    writeln('Претендент пройдет в танцевальный коллектив.')
  else
    writeln('Претендент не пройдет в танцевальный коллектив.');
  
  readln;
end.

В данном коде мы сначала запрашиваем у пользователя вес (`v`) и рост (`r`) претендента на вступление в танцевальный коллектив. Затем, используя условную конструкцию `if`, проверяем, чтобы вес был меньше либо равен разности роста и 100. Если это условие выполняется, выводим сообщение "Претендент пройдет в танцевальный коллектив.". В противном случае выводим сообщение "Претендент не пройдет в танцевальный коллектив.".