Лежит ли точка на окружности

Посмотреть архив целиком
program okrugnost;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b,r:integer;
begin
writeln('Vvedite radius okrugnosti');
readln(r);
writeln('Vvedite 2 koordinati tocki');
readln(a,b);
if (a*a+b*b=r*r) then writeln ('tocka legit na okrugnosti')
else writeln ('tocka ne legin na okrugnosti');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.