Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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


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

количества оценок);

end.