B5 напишите программу в Pascal​


B5 напишите программу в Pascal​

oleg1960 oleg1960    1   17.02.2021 22:41    2

Ответы
гулинахабирова гулинахабирова  19.03.2021 22:47

var x,y,R,r2,S:real;

begin

read(x,y,R,r2);

S:=sqrt(sqr(x)+sqr(y));

if S<r2 then write ('не принадлежит')

else if S>R then write ('не принадлежит')

else write ('принадлежит');

end.

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