. Чим табличні величини відрізняються від текстових або числових величин? 2. Учому особливість опису табличних величин мовами програмування Free Pascal, Python? 3. Учому відмінність табличної величини та елемента табличної величини? 4. Чи обов'язково кожному елементу табличної величини ставити у відповід- нiсть його номер? Для чого потрібні такі номери? Чи можна визначити кількість елементів за описом табличної величини 5. мовами програмування Free Pascal, Рython? 6. Які засоби для введення й виведення елементів табличної величини передбачені у програмах мовами програмування Free Pascal, Python? 7. Які елементи управління використовують для введення чи виведення значень табличних величин у середовищі програмування Lazarus?​​

//PascalABC.NET 3.2 сборка 1318

var
  l, r, counter, i: integer;

function DifNum(a: integer): integer;
var  se: set of integer;
  i: integer;
begin
  while a > 0 do
  begin
    if a mod 10 in se then
    begin
      DifNum := 0;
      exit;
    end
    else include(se, a mod 10);
    a := a div 10;
  end;
  DifNum := 1;
end;

begin
  read(l, r);
  for i := l to r do
    counter += DifNum(i);
  writeln(counter);
end.

//Альтернативное решение на Паскале

Var
  l,r:integer;
begin
read(l,r);
writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.tostring)).Count);
end.

//Dev-C++ 5.11 (C)

#include <stdio.h>
#include <malloc.h>

int DifNum(int);

int main(void)
 {int l,r,counter=0;
 scanf("%d %d",&l,&r);
 for(int i=l;i<=r;i++)
  counter+=DifNum(i);
 printf("%d",counter);
return 0;}

int DifNum(int a)
 {int k=1,*nums;
 nums=(int*)malloc(k*sizeof(int));
 nums[0]=-1;
 while(a>0)
  {for(int i=0;i<k;i++)
   if(a%10==nums[i])
    return 0;
  k++;
  nums=(int*)malloc(k*sizeof(int));
  nums[k-1]=a%10;
  a/=10;}
 free(nums);
 return 1;}

Пример ввода:
1 12
Пример вывода:
11

Анимации делать не умею и нечего не знаю вот код:

Объяснение:

program eg;

uses graph,crt;

var

y,x,i,n,d,m,j:integer;

begin

randomize;

detectgraph(d,m);

initgraph (d,m,' \TP\GRAPH');

for i:=1 to 300 do begin

cleardevice;

setcolor(12);

line(150,380-i,150,420-i);

line(170,380-i,170,460-i);

line(190,380-i,190,420-i);

setcolor(5);

for j:=1 to 200 do begin

putpixel(random(300) ,410-j, random(100) );

end;

setcolor(1 );

setbkcolor(15);

rectangle(120,160-i,220,380-i);

line(170,80-i,120,160-i);

line(170,80-i,220,160-i);

circle(170,210-i,35);

if i<100 then begin

line(120,280-i,80,380-i);

line(80,380-i,120,380-i);

line(120,280-i,120,380-i);

line(220,280-i,260,380-i);

line(220,380-i,260,380-i);

line(220,380-i,220,380-i);

end

else begin

delay (10);

end;

readkey;

end;

end.