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

// 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.

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;

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.