Запиши мантиссу числа и порядок числа 21,5=0,215⋅102.

Мантисса числа:
Порядок числа:

фамилия

                  имя

          отчество

с: =(a+b)*(b-a) должно быть ну и тогда с это разность квадратов а и в

(делаю масив 10на10)  

program matrix;

var a: array [1..10,1..10] of integer;

i,q,b,f: integer;

begin

b: =0; f: =0; q: =1;  

for i: =1 to 10 do begin a[i,q]: =1; end;

i: =1;  

for q: =1 to 10 do begin a[i,q]: =1; end;  

for i: =2 to 10 do

begin

for q: =2 to 10 do

begin 

b: =q-1;

f: =i-1;  

a[i,q]: =a[i,b]+a[f,q];

end; end;

readln

end. 

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 : integet;  

begin

writeln ('vvedit # bileta');

readln (a);

t: =a div 100000;

r: =a mod 100000 mod 10000 mod 1000 mod 100 mod 10;   {барыжна строчка; )   }

n: =9; s: =0; s2: =0;

for i: =1 to n do begin        

h: =t mod i; if h=0 then s: =s+1;

h2: =r mod i;   if h2=0 then s2: =s2+1;

end;

if (h=2) and (h2=2) then writeln ('bilet shasliviy');

else writeln ('bilet obichniy tramvayniy=)');

readln

end.