В финале турнира Российской Армии по шашкам встретились представители шести воинских званий: подполковник, капитан, лейтенант, полковник, сержант и ефрейтор, причём разных специальностей: лётчик, танкист, артиллерист, миномётчик, сапёр и пехотинец. Определи специальность и звание каждого из игроков по следующим данным: 1) в первом туре лейтенант выиграл у лётчика, подполковник — у танкиста, а сержант — у миномётчика; 2) во втором туре капитан выиграл у танкиста; 3) в третьем и четвёртом турах миномётчик из-за болезни не участвовал в турнире, поэтому свободными от игры оказались капитан и ефрейтор; 4) в четвёртом туре подполковник выиграл у пехотинца; 5) победителями турнира оказались лейтенант и подполковник, а хуже всех выступил сапёр. ответ: подполковник — .
var a,b,b1,k,k1:integer;
begin
write('Введите трехзначное число: ');
readln(a);
b:=a;
while b<>0 do begin b1:=b mod 10;
if b1 mod 2=0 then k:=k+1 else k1:=k1+1;
b1:=b div 10;
b:=b1;
end;
if k>k1 then
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
else if k<k1 then write('Кол-во нечетных больше, чем четаных в числе ',a);
end.
Немного переделать и будет рабочая прога!