daily pastebin goal
4%
SHARE
TWEET

Untitled

a guest Sep 14th, 2018 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var a: integer;
  2. begin
  3.     write ('Введите число:');
  4.     readln (a);
  5.     if a > 0 then
  6.         writeln ('Число больше нуля.')
  7.     else if a < 0 then
  8.         writeln ('Число меньше нуля.')
  9.     else if a = 0 then
  10.         writeln ('Число равно нулю.');
  11. end.
  12.  
  13.  
  14.  
  15. var a, b, c: integer;
  16. begin
  17.     writeln ('Введите три числа');
  18.     readln (a, b, c);
  19.     writeln ('Наибольшее число: ');
  20.     if (a>b) and (a>c) then
  21.         writeln(a)
  22.     else if (b>c) and (b>a) then
  23.         writeln (b)
  24.     else if (c>a) and (c<b) then
  25.         writeln (c);
  26. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top