Cod sursa(job #491998)

Utilizator dcupsaoCupsa Darius dcupsao Data 13 octombrie 2010 09:25:20
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
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.