Advertisement
Egor_Vakar

Untitled

Sep 24th, 2022
922
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.45 KB | None | 0 0
  1. program Lab1_1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R .res}
  6.  
  7. uses
  8.   System.SysUtils;
  9. var
  10.     r, x, y: Integer;
  11. begin
  12.     Writeln('Введите R: ');
  13.     Readln(r);
  14.     writeln('Введите X: ');
  15.     readln(x);
  16.     writeln('Введите Y: ');
  17.     readln(y);
  18.     If (r * r -x * x + y * y) then
  19.         writeln('точка лежит на окружности')
  20.     else
  21.         writeln('точка не лежит на окружности');
  22.     readln;
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement