Var a,c,l,w1,w2,w3 : longint;begin readln(a,c); w1:=0; w2:=0; w3:=0; l:=a mod 10; while a>0 do begin if a mod 10=c then w1:=w1+1; if a mod 10=l then w2:=w2+1; if a mod 2=0 then w3:=w3+1; a:=a div 10; end; writeln(w1,' ',w2,' ',w3);<span>end.
</span>
// PascalABC.NET 3.3
begin
var x:=ReadInteger;
writeln((1+x)*x div 2);
end.
Пример:
6
21
От хаоса к порядку:
- на водеме водоплавающие птицы перемещаются хаотично, во время сбора и отлета стаи в более теплые места на зимовку происходит переход к порядку - птицы в стаях летят в строго определенном порядке, вожак строго впереди, за ним все остальные перелетные птицы;
- рыбы в течении всего года перемещаются хаотично, во время нереста (например, семги) рыба собираются вместе и перемещается в одном направлении - вверх по течению реки