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>
Крутящийся кружечек синего цвета
<span><span>Относительный тип - обычная ссылка вида буква столбца-номер строки (B1, С4, похоже на морской бой). При копировании формулы Excel использует этот тип по умолчанию и это удобно.
</span><span>Абсолютный тип - ссылка вида $буква столбца-$номер строки. Абсолютный тип мы используем, когда хотим намертво зафиксировать ссылку на ячейку при копировании формулы.
</span><span>Смешанный тип сочетает в себе признаки относительного и абсолютного типов ссылок.</span></span>
Const
n=5;
type
MyArr=array[1..n] of integer;
var ar:MyArr;
i,maxi,val:integer;
k:real;
function Maxii(ar:MyArr):
integer;
var i,max:integer;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then
begin;
max:=ar[i];
maxii:=i;
end;
end;
function Amp(ar:MyArr):integer;
var i,max,s:integer;
p:real;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then max:=ar[i];
p:=max/100*10;
for i:=1 to n do
if ar[i]>=max-p then inc(s);
Amp:=s;
end;
begin;
for i:=1 to n do
begin;
readln(ar[i]);
k:=k+ar[i];
end;
k:=k/n;
writeln('Средний рост:',k);
maxi:=maxii(ar);
writeln('Самый высокий призывник:',maxi);
val:=Amp(ar);
writeln('4:',val);
<span>end.</span>
Название пошло от английского слова Shape. Перевод означает фигуру илианимацию<span> геометрических фигур. Хорошо выполненные </span>анимации<span> не оставляют зрителя равнодушным, увлекая его гипнотически в происходящее. Простые фигуры, случайно появляясь из ниоткуда, также исчезая — трансформируются друг в друга.</span>
