Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.55 KB | None | 0 0
  1. begin
  2.     writeln('ivesk');
  3.     readln(sk);
  4.     if sk>0 then
  5.     begin
  6.         if sk>9 then
  7.         begin
  8.             if sk>99
  9.             begin
  10.             i
  11.             writeln ('teigiamas trizenklis');  
  12.            
  13.             end
  14.             else begin
  15.             writeln ('teigiamas dvizenklis');
  16.             end
  17.         end
  18.         else begin
  19.         writeln ('teigiamas vienzenklis');
  20.         end
  21.     end
  22.     else begin
  23.             if sk<-9 then
  24.         begin
  25.             if sk<-99
  26.             begin
  27.             i
  28.             writeln ('neigiamas trizenklis');  
  29.            
  30.             end
  31.             else begin
  32.             writeln ('neigiamas dvizenklis');
  33.             end
  34.         end
  35.         else begin
  36.         writeln ('neigiamas vienzenklis');
  37.         end
  38.     end
  39. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement