Pagini recente » Cod sursa (job #2071780) | Istoria paginii runda/simulare_oji_11_12_4 | Cod sursa (job #1293592) | Cod sursa (job #331380) | Cod sursa (job #492772)
Cod sursa(job #492772)
program ultimaCifra;
var
pc:integer;
uc:integer;
rez:integer;
f,g:text;
i,t:integer;
str:string;
function fx(n:integer):integer;
begin
case n of
0: fx:=0;
1: fx:=1;
2: fx:=5 + (((pc mod 2) * 2) mod 2) * 2;
3: fx:=2;
4: fx:=8;
5: fx:=3;
6: fx:=9;
7: fx:=2;
8: fx:=0;
9: fx:=9;
end;
end;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
uc := 0;
read(f,t);
for i:=1 to t do begin}
readln(f);
read(f,str);
val(s[length(s)], uc, aux);
if length(s)> 1 then
val(s[length(s)-1], pc, aux)
else
pc := 0;
rez:=(3 * pc + (pc mod 2) * 2 + fx(uc)) mod 10;
writeln(g, rez);
end;
close(g);
close(f);
end.