program
multiplication_signe;
var
a, b: integer;
t1, t2: boolean;
begin
writeln(' http://www.Software-DS.com');
writeln;
writeln('a=');
readln(a);
writeln('b=');
readln(b);
t1 := a >= 0; { true si + et false si - }
t2 := b >= 0; { true si + et false si - }
if t1 = t2 then (* true=(+) false=(-) *)
writeln('++++++++')
else
writeln('---------');
writeln(' http://www.Software-DS.com');
(* ©2001 All Rights
Reserved to
http://www.Software-DS.com
didier@Software-DS.com
26/09/01 *)
end.
|