Pagini recente » Cod sursa (job #2546403) | Cod sursa (job #2651305) | Cod sursa (job #1102658) | Cod sursa (job #1882265) | Cod sursa (job #491998)
Cod sursa(job #491998)
var n:string;a,b,er:integer;
begin
assign(input,'cifra.in');reset(input);
assign(output,'cifra.out');reset(output);
readln(n);
val(n[length(n)],b,er);
val(n[length(n)-1],a,er);
if b=0 then write(b);
if b=1 then write(b);
if b=5 then write(b);
if (b=6)or(b=4)then write('6');
if b=9 then write(b);
if b=2 then if a mod 2=0 then write('4')
else write('6');
if b=3 then if a mod 2=0 then write('7')
else write('3');
if b=7 then if a mod 2=0 then write('3')
else write('7');
if b=8 then if a mod 2=0 then write('6')
else write('4');
close(input);close(output)f;
end.