Pagini recente » Cod sursa (job #2298828) | Borderou de evaluare (job #2338577) | Cod sursa (job #111412)
Cod sursa(job #111412)
const r:array[0..20] of integer=
(0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4,4);
var s:string;
n,err,t,k:integer;
raspunde:array[0..99] of integer;
begin
assign(input,'cifra.in'); reset(input);
assign(output,'cifra.out'); rewrite(output);
for k:=0 to 99 do
raspunde[k]:=(4*(k div 20)+r[k mod 20])mod 10;
readln(t);
for k:=1 to t do begin
readln(s);
if length(s)>2 then delete(s,1,length(s)-2);
val(s,n,err);
writeln(raspunde[n]);
end;
close(input); close(output);
end.