составить программу Pascal:


составить программу Pascal:

настя200336 настя200336    1   18.06.2020 14:58    0

Ответы
JOKERLADGER JOKERLADGER  30.08.2020 12:28

var r, x:integer;

   y:real;

begin

 write('Введите R, X(a): ');

 readln(r, x);

 y:=sqrt(r*r-x*x);

 writeln('Y = ', y);

end.

ПОКАЗАТЬ ОТВЕТЫ
vaniagaclyc vaniagaclyc  30.08.2020 12:28
PascalABC.NETbegin var (R,X) := ReadReal2('Введите R и X:'); Print('Y =',sqrt(r**2 - x**2)) end.

Пример работы:


составить программу Pascal:
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика