Подсчитать количество целых чисел в диапазоне от

100 до 9999 у которых все цифры разные.

2) Пользователь вводит любое целое число. Необходимо из этого целого числа удалить все цифры 3 и 6 и

вывести обратно на экран.

Нужно выполнить в

компьютер входит в состав технической системы.

компьютер является надсистемой для ос.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.