СРОЧНО
Как решить задачу в Паскаль про голосование.
К примеру в выборах участвуют Иванов и Петров. Нужно принять ответы(люди садятся один за другим за компьютер и голосуют), подсчитать и вывести кто победил.
Как решить задачу в Паскаль про голосование.
К примеру в выборах участвуют Иванов и Петров. Нужно принять ответы(люди садятся один за другим за компьютер и голосуют), подсчитать и вывести кто победил.
More Questions From This User See All
Answers & Comments
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.