Ответ:
var r, x:integer;
y:real;
begin
write('Введите R, X(a): ');
readln(r, x);
y:=sqrt(r*r-x*x);
writeln('Y = ', y);
end.
Пример работы:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var r, x:integer;
y:real;
begin
write('Введите R, X(a): ');
readln(r, x);
y:=sqrt(r*r-x*x);
writeln('Y = ', y);
end.
полное название.
PascalABC.NET
Ответ:
Пример работы: