Question

СРОЧНО
Как решить задачу в Паскаль про голосование.
К примеру в выборах участвуют Иванов и Петров. Нужно принять ответы(люди садятся один за другим за компьютер и голосуют), подсчитать и вывести кто победил.

Answer 1

На PascalABC:
var a,i,p,n:integer;
begin
writeln ('Кандидаты:');
writeln ('1. Петров');
writeln ('2. Иванов');
for n:= 1 to 15 do
begin
writeln ('Введите номер кандидата: ');
readln (a);
if a=1 then p:=p+1 else i:=i+1;
end;
if p>i then writeln ('Петров победил со счётом ',p,':',i) else
writeln ('Иванов победил со счётом ',i,':',p);
end.