1. в прямоугольном треугольнике известны катет и гипотенуза (ввод с клавиатуры) ... Найти другой катет. 2. для расчета функции Z=X2-квадратный корень из Y+15,7*X X ввод с клавиатуры.

program zz1;

var a, b, c, x, y, z:real; / / задаем переменные

begin

write ('введите катет '); / / вводим первый катет

read (a);

write ('введите гипотенузу '); / / вводим гипотенузу

read (c);

b:=sqrt (sqr (c) - sqr (a)); / / высчитываем второй катет по теореме Пифагора

writeln ('второй катет треугольника = ', b); / /выводим ответ

write ('введите x '); / / вводим х

read (x);

write ('введите y '); / / вводим y

read (y);

z:=x*2-sqrt (y) + 15.7*x; / /высчитываем значение функции

write ('значение функции z = ', z); / /выводим ответ

end.