Question

Задачу решить в Паскале. Заранее спасибо) В классе Д девочек и М мальчиков. За контрольную работу по математике было получено Р пятерок, Н четверок, Т троек, К двоек. Все ли ученики были на контрольной работе?

Answer 1

// В классе Д девочек и М мальчиков. За контрольную работу по математике было
//получено Р пятерок, Н четверок, Т троек, К двоек. Все ли ученики были на контрольной работе?


Var d,m,p,h,t,k: word;


begin

  writeln('Введите количество девочек');

  ReadLn (d);

  writeln('Введите количество мальчиков');

  ReadLn (m);

  writeln('Введите количество полученных пятерок');

  ReadLn (p);

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

  ReadLn (h);

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

  ReadLn (t);

  writeln('Введите количество полученных двоек');

  ReadLn (k);

  d:=d+m;

  p:=p+h+t+k;

  If d=p then writeln ('Все ученики присутствовали на контрольной');

  If d>p then writeln ('Не все ученики присутствовали на контрольной');

  If d<p then writeln ('Вы ошиблись при вводе количества учеников или
количества оценок');

end.

Answer 2

Program a;
var i,d,m,sum: integer; 
begin
sum:=0;
writeln ('Сколько в классе девочек и мальчиков? ');
read (d,m);
d:=d+m;
writeln ('За контрольную работу по математике было получено: (Р пятерок, Н четверок, Т троек, К двоек) ');
for i:=1 to 4 do
      begin
             read (m);
             sum:=sum+m; 
      end;
writeln('Отсутствующие - ',d-sum);
end.

Answer 3

Задача решения в Паскале: Кто был на контрольной работе?

Дано: В классе есть девочки (Д) и мальчики (М). На контрольной работе по математике было получено Р пятерок, Н четверок, Т троек и К двоек.

Вопрос: Все ли ученики были на контрольной работе?

Для решения этой задачи в Паскале можно использовать следующий код:

program CheckAttendance;

var
  D, M, R, N, T, K: integer;
  TotalStudents, TotalGrades: integer;

begin
  // Ввод данных
  writeln('Введите количество девочек (Д): ');
  readln(D);
  writeln('Введите количество мальчиков (М): ');
  readln(M);
  writeln('Введите количество пятерок (Р): ');
  readln(R);
  writeln('Введите количество четверок (Н): ');
  readln(N);
  writeln('Введите количество троек (Т): ');
  readln(T);
  writeln('Введите количество двоек (К): ');
  readln(K);

// Вычисление общего количества учеников и оценок
  TotalStudents := D + M;
  TotalGrades := R + N + T + K;

// Проверка, все ли ученики были на контрольной работе
  if TotalStudents = TotalGrades then
    writeln('Все ученики были на контрольной работе.')
  else
    writeln('Не все ученики были на контрольной работе.');

readln;
end.

В этом коде мы сначала запрашиваем у пользователя количество девочек (D) и мальчиков (M), а затем количество пятерок (Р), четверок (Н), троек (Т) и двоек (К). Затем мы вычисляем общее количество учеников (TotalStudents) и общее количество оценок (TotalGrades). И наконец, мы сравниваем эти два значения и выводим соответствующее сообщение о том, все ли ученики были на контрольной работе или нет.

Примечание: Пожалуйста, учтите, что предоставленный код является примером и может потребоваться дополнительная обработка ошибок или проверка ввода данных в реальной ситуации.