var
n: longint;
k,sum: integer;
begin
write ('n = ');
readln(n);
k: =0;
sum: =0;
while n < > 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k: =k+1;
sum: =sum+(n mod 10);
end;
n: =n div 10;
end;
writeln ('summa: ',sum);
writeln ('kol-vo: ',k);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Несколько одноклассников организовали турнир по шашкам. каждый участник турнира сыграл с каждым по одной партии. за выигрыш присуждали 2 очка, за проигрыш- 0 очков, за ничью- 1 очко. три лучших игрока набрали вместе 44 очка- в 2 раза меньше, чем остальные участники, вместе взятые. сколько было участников турнира? решение подробное, если можно : )
ну короче получилось 12 чел из них 3 лучших (очков у соревновавшихся остальных было 72 и еще 16 очков в партиях с теми 3 лучшими)незн как решать я тупо сделала методом подбора и само получилось