< >

6 задние помогите пожалуйста срочноо​

Приложения:

Ответы

Ответ дал: farodis
0

var x:integer;

begin

writeln('Введите значение x: ');

readln(x);

if x<3 then

writeln('y = ',sqr(x))

else

if x>3 then

writeln('y = ',sqrt(x))

else

if x=3 then

writeln('y = ',2*x);

end.

Похожие вопросы
Русский язык
2 года назад
Помогите написать сочинение по " Сказки о царе Салтане " А.С.Пушкина.
Русский язык
2 года назад
Прочитай текст.каковы его тема и основная мысль? Олимпийские(игра),- самые главные спортивные(состязание)в мире.В них участвуют(представитель)всех (континент).На (соревнование) царит накал
Другие предметы
2 года назад
срочно, помогите пожалуйста по начертательной геометрии. В местах пересечения сторон отметить конкурирующие точки ​
Українська мова
2 года назад
Допоможіть будь ласка)))))) :( даю 12 б
Физика
8 лет назад
кто знает?Помогите При охлаждении 1кг вещества на 1°С выделяется кол-во теплоты,равное... А) удельной теплоте парообразования Б) удельной теплоте плавления В) удельной теплоте сгорания Г) удельной
Математика
8 лет назад
помогите пожалуйста! 29км 89м+78км 984м 9ц 67кг-3ц 90 кг можно пожалуйста с переводом
Биология
9 лет назад
Зелёным карандашом подчеркните в списке тела, а красным- вещества Список: метеорит, железо, кусок горной породы, поваренная соль, вода,песчинка, полиэтилен, сосулька.
Алгебра
9 лет назад
Графики каких функций не пересекаются , если в их формулах одинаковые угловые коэффициенты К. Графики каких функций не пересекаются ? y=5x+6 и y=6-5x y=3+4x и y=4x-9 y= 6x-7 и y=-6x y=5 и y=5x