Question

Имеются данные о результатах олимпиады трех школьников по математике ( в баллах), а также известен проходной балл в следующий тур. Найдите и выведите на экран наилучший балл среди трех учеников, а также сообщение о том, прошел или не прошел этот участник в следующий тур ( критерий отбора: набранный балл не должен быть меньше проходного) Решить в паскале. написать программу пжпжпжпжпжпж

Answer 1

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет описанные вами задачи:

pascalCopy code
program OlympicResults;

var
  score1, score2, score3, passingScore, bestScore: integer;

begin
  // Введите результаты олимпиады для трех учеников
  write('Введите балл первого ученика: ');
  readln(score1);
  write('Введите балл второго ученика: ');
  readln(score2);
  write('Введите балл третьего ученика: ');
  readln(score3);

  // Введите проходной балл
  write('Введите проходной балл: ');
  readln(passingScore);

  // Найдите наилучший балл среди трех учеников
  bestScore := score1;
  if score2 > bestScore then
    bestScore := score2;
  if score3 > bestScore then
    bestScore := score3;

  // Выведите наилучший балл
  writeln('Наилучший балл среди учеников: ', bestScore);

  // Проверьте, прошли ли ученики в следующий тур
  if (score1 >= passingScore) then
    writeln('Первый ученик прошел в следующий тур')
  else
    writeln('Первый ученик не прошел в следующий тур');
    
  if (score2 >= passingScore) then
    writeln('Второй ученик прошел в следующий тур')
  else
    writeln('Второй ученик не прошел в следующий тур');
    
  if (score3 >= passingScore) then
    writeln('Третий ученик прошел в следующий тур')
  else
    writeln('Третий ученик не прошел в следующий тур');
end.

Программа сначала запрашивает результаты олимпиады для трех учеников и проходной балл. Затем она находит наилучший балл среди учеников и сообщает, прошли ли они в следующий тур, сравнивая их баллы с проходным баллом.