var a:array [1..100] of int;
i,j,n,t,winners:integer;
Begin
writeln("Введите кол-во делителей");
read(n);
writeln("Введите k");
read(k);
writeln("Введите делители");
for i := 1 to n do
read(a[i]);
for i:= a to b do begin
t:=0;
for j:= 1 to n do
if i mod a[j] = 0 then t:=t+1;
if t=k then winners:=winners+1;
end;
writeln(winners);
End.
Это первое задание, на самом деле оно не очень сложное)
К специальным клавишам относятся Esc, Enter, Tab
<em>VAR</em>
<em> px, py, r: Real;</em>
<em> x1, x2, y1, y2: Real;</em>
<em>BEGIN</em>
<em> Read(x1, y1);</em>
<em> Read(x2, y2);</em>
<em> </em>
<em> px := x2 - x1;</em>
<em> py := y2 - y1;</em>
<em> r := Sqrt(px*px + py*py);</em>
<em> </em>
<em> Write(r);</em>
<em>END.</em>
11111(2)=1+2+4+8+16=31(10) =3*8+7=37(8)=16+15=1F(16)
111(8)=1+8+64=73(10)=4*16+9=49(16)=1+2^3+2^6=1+8+64=1001001(2)
256(10)=2^8=100000000(2)=4*8^2=400(8)=16^2=100(16)
AA(16)=10*16+10=170(10)=2*64+5*8+2=252(8)=2+2^3+2^5+2^7=2+8+32+128=10101010(2)