Предмет: Информатика,
автор: Аноним
Помогите исправить turbo pascal
Дано два действительных числа X и Y. Определить, принадлежит ли точка с координатам (X,Y) окружности радиусом R. Результат вывести на экран.
program one;
var x,y,R:real;
begin
Writeln('ВВедите x,y,R');
readln(x,y,R);
if sqrt(sqr(x)+sqr(y))<=R
Then writeln('нет');
else writeln('Да');
end.
Приложения:
![](https://files.topotvet.com/i/314/314a4d38b3d1f78713c4a8f1b334595e.png)
Ответы
Автор ответа:
0
Then writeln('нет');
уберите в конце строки точку с запятой.
И поменяйте местами да - нет.
Сейчас у Вас "да" означает, что точка лежит вне окружности.
Похожие вопросы
Предмет: Биология,
автор: uiliua1988meluynik
Предмет: Геометрия,
автор: dantagan
Предмет: Химия,
автор: ruslan8865
Предмет: Математика,
автор: rfchjnjbbth
Предмет: Химия,
автор: betta2509