На контрольной работе по ученикам 9 класса было предложено 10 примеров. неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. сколько неудовлетворительных оценок было получено учениками? программа получает на вход количество учеников в классе n (1 ≤ n ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров. составить три программы, используя три вида циклов (for, while, repeat)

program raf105;

var n,a,x,i: integer;

begin

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

readln(n);

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

for i: =1 to n do

begin

  readln(a);

  if a< 5

    then x: = x+1;

end;

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

end.

program raf105;

var n,a,x,i: integer;

begin

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

readln(n);

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

while i< > n do

begin

  i: = i+1;

  readln(a);

  if a< 5

    then x: = x+1;

end;

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

end.

program raf105;

var n,a,x,i: integer;

begin

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

readln(n);

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

repeat

  i: = i+1;

  readln(a);

  if a< 5

    then x: = x+1;

until i=n;

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

end.

я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время

если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и

не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода  в – дует ветер 

делается по такому же принципу 

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.