Голосование. пять студентов решают идти на первую пару или ещё поспать. пользователь вводит голоса каждого. 1 означает идти, 0 - поспать. программа выводит окончательное решение. оно принимается простым большинством.
нужно составить программу в pascal.
556667888
3
24.11.2019 21:41
4
Другие вопросы по теме Информатика
imaya88
17.11.2020 19:36
Наташа123454321
17.11.2020 19:35
SpawNis
17.11.2020 19:35
керамбит1
07.11.2019 14:36
rytryt
07.11.2019 14:44
Aкося
13.07.2019 09:10
matsunichivan
29.09.2019 06:10
Популярные вопросы
- написать мини сочинение( эссе) на тему A healthy body makes a healthy...
3 - Қазақ тілі 6 сынып 50 бет 7-жаттығу...
3 - запропонуйте б отримання у чистому вигляді компонентів суміші,яка...
3 - лучше владеть правой рукой у человека доминирует над леворукостью,...
3 - Найди углы, если ∢ABC=121°. ...
2 - Сделайте лингвостилистический анализ текста по плану...
3 - 2. [ ) СОАВТОР Рассмотрите список произведений и ответьте на вопросы.А)...
1 - Напишите эссе о Николае II –последнем российском императоре....
1 - 6 ) Ястребы-перепелятники начинают размножаться в годовалом Возрасте.Плодовитость...
3 - математика пятый класс паучок ученик натянул паутину между действиями...
1
Var a, j, i:integer ;
Begin
j:=0;
For i:=1 to 5 do begin
Read(a) ;
If a=1 then j:=j+1;
If a=0 then j:=j-1;
End;
If j>0 then writeln('Ученики идут на пару')
Else Writeln('Ученики спят' );
End.