** языке Pascal напишите программу, которая будет подсчитывать количество двоек, четвёрок...

Question

На языке Pascal напишите программу, которая будет подсчитывать количество двоек, четвёрок и пятёрок, полученных за контрольную работу по математике при условии если в классе 32 человека.
Исходные данные вводятся с клавиатуры с соблюдением правил дружественного интерфейса.

Comments

Что означает "дружественный интерфейс" ?

---

Да откуда я знаю, так написано в задании

---

Вам нигде, никогда не объясняли, и в учебнике у Вас не написано?

---

У нас даже учебников нет, учитель выдал распечатки с заданием просто

Answer 1

Ответ в файле:
vvvvvvvvvvvvvvvv

Answer 2

Var
  A, i, k2, k4, k5, c, d, N: integer;
Begin
  Write('Введите количество учеников в классе: ');ReadLn(N);
  if (N = 32) then
  Begin
    c := 1;
    d := 5;
    WriteLn('Введите оценки учеников:');
    k2 := 0;
    k4 := 0;
    k5 := 0;
    i := 1;
    While i <= N do<br>    Begin
      Write('Оценка ученика №',i,': ');ReadLn(A);
      if (c <= A)and(A <= d) then<br>      Begin
        Case A of
          2: k2 := k2+1;
          4: k4 := k4+1;
          5: k5 := k5+1;
        End;
        i := i+1;
      End
      else
        WriteLn('Неприемлимое значение! Допустимые значения: [',c,'..',d,']');
    End;
    WriteLn('Количество двоек: ',k2);
    WriteLn('Количество четвёрок: ',k4);
    WriteLn('Количество пятёрок: ',k5);
  End
  else
    WriteLn('В классе не 32 ученика');
End.