SHARE
TWEET

Untitled

a guest Sep 12th, 2019 88 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program laba1_1;
  2. uses
  3.   SysUtils;
  4. var
  5.     number_of_day: integer;
  6. begin
  7.     repeat
  8.         try
  9.             Writeln('Введите номер дня недели: ');
  10.             Readln(number_of_day);
  11.             case number_of_day of
  12.                 1: writeln('Понедельник');
  13.                 2: writeln('Вторник');
  14.                 3: writeln('Среда');
  15.                 4: writeln('Четверг');
  16.                 5: writeln('Пятница');
  17.                 6: writeln('Суббота');
  18.                 7: writeln('Воскресенье');
  19.             else
  20.                 writeln('Такого номера дня недели не существует');
  21.             end;
  22.         except
  23.            Writeln('Введите целое число!');
  24.         end;
  25.     until ((number_of_day>0) and (number_of_day<8));
  26.     readln(number_of_day);
  27. 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