Cod sursa(job #27842)

Utilizator bogdan90Bogdan Grama bogdan90 Data 7 martie 2007 10:27:11
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var a:array[1..100] of integer;
    x,n,i,j,t:integer;
    f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
readln(f,t);
rewrite(g);
for i:=1 to t do begin
    x:=1;
    for j:=1 to i do
        x:=x*x;
    a[i]:=x mod 10;
    end;
for i:=1 to t do write(g,a[i]);
close(g);
end.