Question

De elaborat un program Pascal care calculează câtul a 2 numere întregi negative (x,y)
Citite de la tastatură

Answer 1

program calcul;
var x,y,z:integer;
begin
write('x='); readln(x);
write('y='); readln(y);
if (x>0) or (y>0) then
repeat
writeln('Introduceti ambele numere negative');
write('x='); readln(x);
write('y='); readln(y);
until (x<0) and (y<0);
else
z:=x div y;
writeln('z=',z);
end.