Pagini recente » Cod sursa (job #1722986) | Cod sursa (job #455030) | Cod sursa (job #1424102) | Cod sursa (job #1632800) | Cod sursa (job #123639)
Cod sursa(job #123639)
program cifra;
var A : array [1..100] of integer;
N,T : real;
i,j,k,l,S : integer;
fin,fout : text;
begin
for i := 1 to 100 do begin
k := 1;
for j := 1 to i do begin
k := k*i;
k := k mod 10;
end;
A[i] := k;
end;
for i := 1 to 100 do
write(A[i],' ');
assign(fin,'cifra.in');
reset(fin);
readln(fin,T);
assign(fout,'cifra.out');
rewrite(fout);
for i := 1 to round(T) do begin
readln(fin,N);
N := frac(N/100)*100;
S := 0;
for j := 1 to round(N) do
S := S+A[j];
S := S mod 10;
writeln(fout,S);
end;
close(fin);
close(fout);
end.