На контрольной работе по алгебре ученикам 9 класса было предложено 10 примеров. Неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. Сколько неудовлетворительных оценок было получено учениками? Программа получает на вход количество учеников в классе N (1 ≤ N ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров.
Составить три программы, используя три вида циклов (for, while,repeat)
Ответы
Цикл for
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.
Цикл while
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.
Цикл repeat
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.