Advertisement
Vladislav8653

laba 1_1 delphi

Sep 20th, 2022 (edited)
116
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.13 KB | None | 0 0
  1. program lab_1_1;
  2. Uses
  3.     System.SysUtils;
  4. var Age, C: integer;
  5. IsCorrect : boolean;
  6. const B = 18;
  7. begin
  8.  Repeat
  9.             IsCorrect := True;
  10.             writeln ('Сколько Вам лет?');
  11.             Try
  12.               ReadLn(Age);
  13.             Except
  14.                 Writeln('Вы ввели не число, попробуйте снова.');
  15.                 IsCorrect := False;
  16.             End;
  17.             If ((IsCorrect) And (Age < 1)) Then
  18.                 Begin
  19.                 Writeln('Ожидалось положительное число.');
  20.                 IsCorrect := False;
  21.                 End;
  22.         Until(IsCorrect);
  23.     if Age < B then
  24.      begin
  25.      C := B-Age;
  26.   write ('Вам будет предоставлено право голосовать через ', C);
  27.    if C > 4 then
  28.     begin
  29.        writeln (' лет');
  30.     end
  31.     else if C = 1 then
  32.      begin
  33.        writeln (' год');
  34.     end
  35.     else   begin
  36.         writeln (' года');
  37.     end;
  38.   end
  39.   else
  40.   begin
  41.   writeln ('Вы имеете право голосовать');
  42.   end;
  43.     readln(Age,C) ;
  44.     end.
  45.  
  46.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement