Pagini recente » Cod sursa (job #2098134) | Cod sursa (job #1827737) | Cod sursa (job #2152109) | Cod sursa (job #124343) | Cod sursa (job #1556551)
program infoarena_cifra;
var f1,f2:text;
s:string;
c:char;
begin
assign(f1,'cifra.in');reset(f1); readln(f1,s);
assign(f2,'cifra.out');rewrite(f2);
while not eof(f1) do
begin
readln(f1,s); c:=s[length(s)];
if (length(s)=1) then begin
case c of
'1':c:='1';
'2':c:='5';
'3':c:='2';
'4':c:='8';
'5':c:='3';
'6':c:='9';
'7':c:='2';
'8':c:='8';
'9':c:='9';
'0':c:='9';
end;
end
else
begin
case c of
'1':c:='0';
'2':c:='3';
'3':c:='6';
'4':c:='5';
'5':c:='4';
'6':c:='5';
'7':c:='2';
'8':c:='5';
'9':c:='0';
'0':c:='9';
end;
end;
writeln(f2,c);
end; close(f1);close(f2);
end.