Întrebare
Dau coroana!!!!
se da un numar intreg. determinati daca este pozitiv negativ sau egal cu 0.
Program pascal !!!1
se da un numar intreg. determinati daca este pozitiv negativ sau egal cu 0.
Program pascal !!!1
Întrebare a fost pusă de: USER4487
123 Vezi
123 Răspunsuri
Răspuns (123)
program pr;
var n:integer;
begin
write('n= ');readln(n);
if n > 0 then writeln('Numarul este pozitiv');
if n < 0 then writeln('Numarul este negativ');
if n = 0 then writeln('Numarul este egal cu 0');
end.
Nu ma pricep destul de bine la pascal nu garantez ca e 100% ok
var n:integer;
begin
write('n= ');readln(n);
if n > 0 then writeln('Numarul este pozitiv');
if n < 0 then writeln('Numarul este negativ');
if n = 0 then writeln('Numarul este egal cu 0');
end.
Nu ma pricep destul de bine la pascal nu garantez ca e 100% ok