1.Отыскать и вывести на экран все целые числа из интервала от

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.

Я такое теснее отвечал