Question

Задача по информатике(написать программу на pascal) Определите поставленную по пятибалльной системе оценку: если количество баллов ниже 60, то оценка 2, если от 60 до 80, то оценка 3, от 80 до 90 - 4, более 90 - 5

Answer 1

Var
  points: integer;
begin
  write('Введите количество баллов -> ');
  readln(points);
  if (points < 60) then
    writeln('Оценка 2.')
  else if (points >= 60) and (points < 80) then
    writeln('Оценка 3.')
  else if (points >= 80) and (points < 90) then
    writeln('Оценка 4.')
  else if (points >= 90) then
    writeln('Оценка 5.')
end.

Answer 2

Для решения данной задачи на языке Pascal, нужно написать программу, которая будет принимать количество баллов и выводить соответствующую оценку. Вот пример программы:

pascalCopy code
program CalculateGrade;

var
  score: Integer;
  grade: Integer;

begin
  // Ввод количества баллов
  WriteLn('Введите количество баллов: ');
  ReadLn(score);

  // Определение оценки по пятибалльной системе
  if score < 60 then
    grade := 2
  else if score < 80 then
    grade := 3
  else if score < 90 then
    grade := 4
  else
    grade := 5;

  // Вывод оценки
  WriteLn('Оценка: ', grade);
end.

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