1)
Var K, I: Integer;
Begin
ReadLn(K);
For I:=1 to K do Begin
If (I-(I div 10)*10) mod 10 = 3 then WriteLn(I);
End;
End.
2)
Var K, I: Integer;
O: Longint;
Begin
ReadLn(K);
For I:=1 to K do Begin
If I div 2 = I / 2 then
O:=O+I;
End;
WriteLn(O);
End.
3)
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.