Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program rastucecisla;
- {$APPTYPE CONSOLE}
- uses SysUtils;
- var c,p:byte;
- r:boolean;
- begin
- { TODO -oUser -cConsole Main : Insert code here }
- r:=true;
- p:=1;
- repeat
- write('Zadajte cislo: ');
- readln(c);
- if (c<p) and (c <> 0) then r:=false
- else r:=true;
- p:=c;
- until c=0;
- if r=false then writeln('Postupnost nieje rastuca!')
- else writeln('Postupnost je rastuca!');
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment