Введите x, вычислите Z если x допустимое значение, если нет то пишем x - имеет недопустимое значение, Z вычисляется Z=sqrt (x+5)

Записать в виде обычной математической формулы 1) y:=2*sin (x) * sqrt (x+sqrt (abs (x))) 2) y: = sqrt (sin (x) + sin (sqrt (x))) 3) y: = sqrt (abs (x-1) + sqrt (sin (x))) 4) y: = (5*sin (x) + 4) / 2*15*sin (sqrt (x)) 5) k+15*x / (2*sin (x)) 6) y:=

Программа не запускается исправьте программу program lab1; Var x, a, nx:integer; y:real; begin write ('Введите x: ') ; read (x) ; write ('Введите a: ') ; read (a) ; write ('Введите nx: ') ; read (nx) ; If a

Помогите составить программы Введите несколько чисел. Найдите произведение чисел меньших 7. Введите несколько чисел. Найдите количество двузначных чисел. Введите несколько чисел.

Определите ошибку: Ссылка (Отметьте один правильный вариант ответа.) Вариант 1 нет ошибки Вариант 2 ошибка создания окна: недопустимое значение параметра height Вариант 3 ошибка создания окна: не указана ширина открываемого окна

Даны 3 стороны треугольника АВС-напечатать какой имеет вид треугольник. Проверьте где у меня ошибки: var a, b, c:integer; begin write ('введите a=') ; readln (a) write ('введите b=') ; readln (b) write ('введите c=') ;