sasha10072004
24.02.2022 17:40

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


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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
SuperMine
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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота