Var A: array[0..100] of integer;
1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
110101+1010=111111
1101*11=12111
begin
var (N, a, x1, x2) := (12, 1.0, 2.0, 3.0);
PartitionPoints(x1, x2, N).
Tabulate(x -> Sin(Sqrt(a ** 3 + x)) / (14 + a * x)).
ForEach(p -> Writeln(p[0]:17:14, p[1]:20:16));
end.