Голосование. Пять студентов решают идти на первую пару или ещё поспать. Пользователь вводит голоса каждого. 1 означает идти, 0 - поспать. Программа выводит окончательное решение. Оно принимается простым большинством.
Нужно составить программу в Pascal.
Ответы на вопрос
Ответил lbvf23
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.
Новые вопросы
Обществознание,
1 год назад
Английский язык,
2 года назад
Русский язык,
2 года назад
Қазақ тiлi,
7 лет назад