[أبو عبد الرحمن 87]

المشاركة الأصلية كتبت بواسطة هاجر1991

ma3lich khoya taktabli algorithme psk siyitou fi turbo-pascal w makhdamlich

program vds;
uses crt;
var i,n:integer;
var u,v,s,a:real;
begin
clrscr;
readln(n);
if n=0 then write('erreur')
   else if n=1 then write ('U1=0 et S1=0')
        else
            begin
                 u:=0;
                 v:=9;
                 s:=9;
                 for i:=3 to n do
                     begin
                     a:=u;
                     u:=v;
                     v:=6*v-9*a;
                     s:=s+v;
                     end;
writeln('U',n,'= ',v,' et S',n,'= ',s);
           end;
readln;
end.