Соператора паскаля 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.