dxvmxnd

Untitled

Sep 6th, 2024
18
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.96 KB | None | 0 0
  1. Program RotEbal;
  2.  
  3. Uses
  4.     System.SysUtils, Math;
  5.  
  6. Var
  7.     X, Y : Real;
  8.     IsCorrect : Boolean;
  9.  
  10. Begin
  11.     Writeln('Данная программа проверяет входимость точки в сука плоскость');
  12.  
  13.     Repeat
  14.         IsCorrect := True;
  15.         Writeln('Введите X: ');
  16.         Try
  17.             Readln(X);
  18.         Except
  19.             IsCorrect := False;
  20.             Writeln('Ты ебло утинное');
  21.         End;
  22.     Until IsCorrect;
  23.  
  24.     Repeat
  25.         IsCorrect := True;
  26.         Writeln('Введите Y: ');
  27.         Try
  28.             Readln(Y);
  29.         Except
  30.             IsCorrect := False;
  31.             Writeln('Ты ебло утинное номер 2');
  32.         End;
  33.     Until IsCorrect;
  34.  
  35.     If (Abs(X) + Abs(Y) < 1) Then
  36.         Writeln('Данная точка входит в очко ПИшника')
  37.     Else
  38.         Writeln('А нихуя не входит');
  39.  
  40.  
  41.  
  42.     Readln;
  43. End.
Add Comment
Please, Sign In to add comment