С помощью оператора Паскаля FOR

Вывести на экран:

1) все четные числа из диапазона от A до B, кратные трем (A 2) все двузначные числа, в которых старшая цифра отличается от младшей не больше чем на 1;

3) все трехзначные числа, в которых хотя бы две цифры повторяются.

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.