составьте программу ** языке паскаль.Абитуриенты сдают три экзамена если они набирают не...

Question

составьте программу на языке паскаль.Абитуриенты сдают три экзамена если они набирают не менее 13 балов,то поступают на дневное отделение,от 10 до 12 на вечернее,от 8 до 9 на заочное,менее 8 балов отказано от приема на учебу.

Answer 1

 Program abitura;

Uses Crt;

var n,i,r,n1,n2,n3:integer;

begin

     clrscr;

     write('Введите количество абитуриентов:'); 

 

     readln(n);

     for i:=1 to n do

            begin

                 writeln('Абитуриент номер ' ,i  ); 

                 write('Введите оценку за первый экзамен'); 

 

                  readln(n1);

                  write('Введите оценку за второй экзамен'); 

                  readln(n2);

                  write('Введите оценку за третий экзамен'); 

                  readln(n3);

                  r:=n1+n2+n3;

                  if (r>=13) then writeln('Вы зачислены на дневное отделение '); 

 

                 if (r>10) and (r<12)  then writeln('Вы зачислены на вечернее отделение ');  </p>

 

                 if (r>=8) and (r<=9)  then writeln('Вы зачислены на заочное отделение ');</p>

                  if  (r<8)  then writeln('Вам отказанно в зачислении ! ');          </p>

            end;   

     readkey;  

 

 end.