Pagini recente » Cod sursa (job #1321701) | Cod sursa (job #1080193) | Cod sursa (job #3261955) | Cod sursa (job #1313553) | Cod sursa (job #601450)
Cod sursa(job #601450)
Program ultima_cifra;
type numar= string[100];
const u: array[1..9] of byte= (1,4,9,6,5,6,9,4,1);
var t,i: longint;
f1,f2:text;
n:array[1..300] of numar;
b:array[1..300] of byte;
Procedure ultima(var s:numar;var cif: byte);
var i,c,v: longint;
cod:integer;
Begin
if length(s)=1 then c:=0 else Begin
val(s[length(s)-1],v,cod);
if odd(v) then c:=5
else c:=0;
end;
val(s[length(s)],v,cod);
for i:=1 to v do
c:=c+ u[i];
c:=c mod 10;
cif:=c;
end;
Begin
assign(f1, 'cifra.in' );
assign(f2, 'cifra.out');
reset(f1);
readln(f1,t);
for i:=1 to t do
readln(f1,n[i]);
close(f1);
for i:=1 to t do
ultima(n[i],b[i]);
rewrite(f2);
for i:=1 to t do
writeln(f2,b[i]);
close(f2);
end.