GamerSK

zruti 2

Feb 27th, 2017
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.21 KB | None | 0 0
  1. program zruti;
  2. {$APPTYPE CONSOLE}
  3. uses SysUtils;
  4. type input=-10000..10000;
  5. var a,b,p,k:input;
  6. begin
  7. { TODO -oUser -cConsole Main : Insert code here }
  8.   readln(a,b,p,k);
  9.   if b>a*p then
  10.     begin
  11.       if a*p>b-(a*p) then
  12.         begin
  13.             if a*p>(b-(a*p))*k then writeln('vymrie');
  14.             if a*p<(b-(a*p))*k then writeln('rastie');
  15.             if a*p=(b-(a*p))*k then writeln('rovnovaha');
  16.         end;
  17.       if a*p<b-(a*p) then
  18.         begin
  19.             if a*p<(b-(a*p))*k then writeln('rastie');
  20.             if a*p>(b-(a*p))*k then writeln('vymrie');
  21.             if a*p=(b-(a*p))*k then writeln('rovnovaha');
  22.         end;
  23.     end;
  24.   if b<a*p then
  25.     begin
  26.       if a*p>(a*p)-b then
  27.         begin
  28.               if a*p>((a*p)-b)*k then writeln('vymrie');
  29.               if a*p<((a*p)-b)*k then writeln('rastie');
  30.               if a*p=((a*p)-b)*k then writeln('rovnovaha');
  31.         end;
  32.       if a*p<(a*p)-b then
  33.         begin
  34.               if a*p<((a*p)-b)*k then writeln('rastie');
  35.               if a*p>((a*p)-b)*k then writeln('vymrie');
  36.               if a*p=((a*p)-b)*k then writeln('rovnovaha');
  37.         end;
  38.     end;
  39.     if a*p=b-(a*p) then writeln('rovnovaha');
  40.   readln;
  41. end.
Advertisement
Add Comment
Please, Sign In to add comment