Представить программу.

Задача 1. Вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем.

Задача 2. Даны трёхзначные натуральные числа n и k (n < k). Из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. Например, числа 266, 661, 767, 776 - содержат ровно 2 одинаковые цифры.

Задача 3. Дано два целых положительных числа a и n, вводимых с клавиатуры (выполнить проверку на выполнения данного условия). Найти an и na.

1)

var a:array [1 ... 100] of integer;

n, i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln (a[i]) ;

end;

end.

2)

var a:array [1 ... 100] of integer;

n, k, i, x, y, z: integer;

begin

readln (n, k) ;

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln (a[i]) ;

end;

end.

3)

var a, n, an, na: integer;

begin

readln (a, n) ;

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln ('Введены неверные числа!') ;

end;

end.