Pagini recente » Profil Andrei-27 | Cod sursa (job #1763989) | Cod sursa (job #3279898) | Cod sursa (job #134450) | Cod sursa (job #25614)
Cod sursa(job #25614)
program expresii2;
var x,y:qword;
i,j,n,p,k:longint;
f,g:text;
begin
assign(f,'expresii2.in'); reset(f);
assign(g,'expresii2.out'); rewrite(g);
readln(f,n,k,p);
if n mod 2=0 then begin
x:=1; y:=1;
for i:=1 to n div 2-1 do begin y:=y*3; x:=x*k; end;
x:=x*y;
writeln(g,x+1);
for i:=1 to n div 2 do write(g,'A');
for i:=1 to n div 2-1 do write(g,'+');
writeln(g,'!');
end
else begin
y:=1; x:=1;
for i:=1 to (n div 2)+1 do begin y:=y*2; x:=x*k; end;
y:=y div 2;
writeln(g,x*y);
for i:=1 to n div 2+1 do write(g,'A');
for i:=1 to n div 2 do write(g,'+');
writeln(g);
end;
close(f); close(g);
end.