Question

Să se scrie un program care citeşte de la tastatură două numere întregi a şi b şi verifică dacă cele doua numere au acelaşi semn. Va rog, un alt raspuns?

Answer 1

Program e3;
var a,b : integer;
begin
writeln('Dati pe rind 2 numere');
readln(a);
readln(b);
If (a>0) and (b>0) then writeln('Ambele numere au acelasi semn');
If (a<0) and (b<0) then writeln('Ambele numere au acelasi semn');
If (a>0) and b(<a) then writeln('Numerele nu au aceleasi semne');
If (a<0) and (b>0) then writeln('Numerele nu au aceleasi semne');
If (a=0) and (b=0) then writeln('Numerle au acelasi semn');
readln
end.