Var x,sum:integer;
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.
<span>переменная </span><span>«a» после выполнения этого цикла будет равна</span> 17
Спортсменов 119, значит для одного спортсмена надо 7 бит (2^7 = 128)
70*7=490 бит под всех.
1) 3) 4)
Лиса любит розовые,но не любит зелёные=>она выберет розовые.
Волк любит синие,но не любит зелёные=>он выберет зелёные
Ягнёнок любит и синие и розовые,но т.к. розовые заняты=>он возьмёт синие
1. for( t = n, s = 0, m = 1; t > 0; t /= 10 ) if (n < 1000) m *= t % 10; else s += t % 10;
2. if (n % 10 == n / 10) printf( "состоит\n" );