Составьте программу, определяющую…

Составьте программу, определяющую, лежит ли точка суказанными координатами X, Y на окружности радиуса R с центром в начале координат. Program Frankenstein; var x,y,r: integer; BeginWrite ('Введите координату X: '); Readln (x); Write ('Введите координату Y: '); Readln (y); Write ('Введите длину радиуса R: '); Readln (r); If (sqr (x)+sqr (y)=rthen writeln ('Точка лежит на окружности! ') Else writeln ('Точка не лежит на окружности! '); End. Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?

в избранное

micherean

21 февраля 2023

R^2Varx,y,r: integer; BeginWrite ('Введите координату X: '); Readln (x); Write ('Введите координату Y: '); Readln (y); Write ('Введите длину радиуса R: '); Readln (r); If (sqr (x)+sqr (y)=sqr (r) then writeln ('Точка лежит на окружности! ') Else writeln ('Точка не лежит на окружности! '); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?