Question

С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен ( получили оценку не менее 3) и не сдавших предмет( получили 2) Программа Паскаль

Answer 1

Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
end.

Answer 2

Привет! Вот пример программы на языке Паскаль, которая подсчитывает количество сдавших экзамен (получивших оценку не менее 3) и не сдавших предмет (получивших 2):

program CountGrades;

var
  grade: Integer;
  passedCount, failedCount: Integer;

begin
  passedCount := 0;
  failedCount := 0;

writeln('Введите оценки учащихся (для завершения введите -1):');

repeat
    readln(grade);

if (grade >= 3) then
      passedCount := passedCount + 1
    else if (grade = 2) then
      failedCount := failedCount + 1;

until (grade = -1);

writeln('Количество сдавших экзамен (оценка не менее 3): ', passedCount);
  writeln('Количество не сдавших предмет (оценка 2): ', failedCount);

end.

В этой программе используется цикл `repeat...until`, который выполняется до тех пор, пока не будет введено значение -1. Внутри цикла проверяется оценка, и в зависимости от ее значения увеличивается счетчик для сдавших или не сдавших.

После окончания ввода оценок, программа выводит количество сдавших экзамен (оценка не менее 3) и количество не сдавших предмет (оценка 2).

Надеюсь, это поможет! Если у тебя есть еще вопросы, не стесняйся задавать.