Cod sursa(job #126374)

Utilizator tzipleatudTudor Tiplea tzipleatud Data 21 ianuarie 2008 22:55:54
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.9 kb
Program cifra;
VAR
n,i,t,j,k:longint;
uc,s:word;
fin,fout:text;
begin
assign(fin,'cifra.in');
reset(fin);
assign(fout,'cifra.out');
rewrite(fout);
read(fin,t);
for j:=1 to t do
begin
for i:=1 to n do
begin
if(i mod 10 =0) then s:=s+0;
if(i mod 10 =1) then s:=s+1;
if(i mod 10 =2) then begin for k:=1 to i mod 4 do uc:=uc+i;
s:=s+(uc mod 10); end;
if(i mod 10 =3) then begin for k:=1 to i mod 4 do uc:=uc+i;
s:=s+(uc mod 10);end;
if(i mod 10=4) then begin for k:=1 to i mod 2 do uc:=uc+i;
s:=s+(uc mod 10);end;
if(i mod 10 =5) then s:=s+5;
if(i mod 10 =6) then s:=s+6;
if(i mod 10 =7) then begin for k:=1 to i mod 4 do uc:=uc+i;
s:=s+(uc mod 10);end;
if(i mod 10 =8) then begin for k:=1 to i mod 4 do uc:=uc+i;
s:=s+(uc mod 10);end;
if(i mod 10=9) then begin for k:=1 to i mod 2 do uc:=uc+i;
s:=s+(uc mod 10);end;
uc:=0;
end;
writeln(fout,s mod 10);
end;
close(fin);close(fout);
end.