Напишите следующую программу. Ввести с клавиатуры оценку ученика в виде числа от 2 до 5....

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;

Comments

А зачем подключать SysUtils ?

---

В Delphi писал, там у меня по умолчанию стоит, на самом деле не обязательно.

---

Неужели еще кто-то в Делфи пишет?