FuFsQ

4.1 b)

Sep 28th, 2021
584
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PROGRAM PaulRevere(INPUT, OUTPUT);
  2. {Печать соответствующего сообщения, зависящего от величины
  3. на входе:  '...by land' для 1 и '...by sea' для 2
  4. иначе печать сообщения об ошибке}
  5. VAR
  6. Lanterns: CHAR;
  7. BEGIN {PaulRevere}
  8.   {Read Lanterns}
  9.   READ(Lanterns);
  10.   IF Lanterns >= '1'
  11.   THEN
  12.     IF Lanterns <= '3'
  13.     THEN
  14.       WRITE('The British are coming by ');
  15.   IF Lanterns = '1'
  16.   THEN
  17.     WRITELN('land.')
  18.   ELSE
  19.     IF Lanterns = '2'
  20.     THEN
  21.       WRITELN('sea.')
  22.     ELSE
  23.       WRITELN('The North Church shows only ''',Lanterns, '''.')
  24. END. {PaulRevere}
RAW Paste Data