Hey!
P 1 Start
P2 Se citeste/ readln: n;
P3 Daca/If n mod 2:=0 atunci scrie " n este par"
altfel " n nu e par";
P4 End.
Sper sa fie corect
Succes!
Program Turbo Pascal:
begin
write(' n='); readln(n);
if n mod 2:=0 then writeln(' n este par');
if n mod 2:=1 then writeln(' n este impar');
end.
User20121610 întreabă:
roby223 întreabă: