Question

Напишите следующую программу. ввести с клавиатуры оценку ученика в виде числа от 2 до 5. вывести на экран «работа выполнена отлично», если оценка — 5, «работа выполнена хорошо», если оценка — 4, «работа выполнена удовлетворительно», если оценка — 3, «работа выполнена неудовлетворительно», если оценка — 2. в программе использовать три условных оператора.паскаль.

Answer 1

// PascalABC.NET 3.0, сборка 1073
var
  b:byte;
begin
  Write('Введите отметку (2-5): '); Read(b);
  { подразумевается, что отметка введена корректно }
  if b=2 then Writeln('Работа выполнена неудовлетворительно');
  if b=3 then Writeln('Работа выполнена удовлетворительно');
  if b=4 then Writeln('Работа выполнена хорошо')
  else Writeln('Работа выполнена отлично')
  { Исползованы ровно три условных оператора }
end.

Answer 2

Program rez;
 {$APPTYPE CONSOLE}
uses  
  SysUtils;
var   
  n:integer;
begin
  readln(n);
  if(n=5)then writeln('Работа выполнена отлично');
  if(n=4)then writeln('Работа выполнена хорошо');
  if(n=3)then writeln('Работа выполнена удовлетворительно');
  else writeln('Работа выполнена неудовлетворительно'); 
  readln;
end;