На контрольной работе по алгебре ученикам 9 класса было предложено 10

Цикл for

program raf105;

var n,a,x,i:integer;

begin

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

readln(n);

writeln('Вводите кол во верно решённых вопросов воспитанников по очереди: ');

for i:=1 to n do

begin

 readln(a);

 if alt;5

   then x:= x+1;

end;

writeln('Воспитанниками было получено ',x,' неудовлетворительных оценок');

end.

Цикл while

program raf105;

var n,a,x,i:integer;

begin

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

readln(n);

writeln('Вводите кол во правильно решённых вопросов воспитанников по очереди: ');

while ilt;gt;n do

begin

 i:= i+1;

 readln(a);

 if alt;5

   then x:= x+1;

end;

writeln('Учениками было получено ',x,' неудовлетворительных оценок');

end.

Цикл repeat

program raf105;

var n,a,x,i:integer;

begin

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

readln(n);

writeln('Вводите кол во верно решённых вопросов воспитанников по очереди: ');

repeat

 i:= i+1;

 readln(a);

 if alt;5

   then x:= x+1;

until i=n;

writeln('Воспитанниками было получено ',x,' неудовлетворительных оценок');

end.

Язык PascalABC