Предмет: Информатика,
автор: 15Konstantin15
Pascal.Нужно написать программу на языке Pascal.
Приложения:
Ответы
Автор ответа:
1
Var a,x: real;
Begin
readln(a,x);
If x>0 Then
write('y = ',sqrt(x*x+a*a))
Else
write('y = ',sqrt(x*x-a*a));
End.
15Konstantin15:
Это точно так?Просто я чутка по другому сделал.Там типо после того,как написал x>0 не надо два случая рассматривать?
эмм ... что ? при х>0 выводиться первое , в остальных случаях - второе, в чем вопрос ?
Всё понял.Благодарю
Интересные вопросы
Предмет: Математика,
автор: torlakg
Предмет: Геометрия,
автор: mariameteron
Предмет: Информатика,
автор: sulymakaterina53
Предмет: История,
автор: вотяковаирина
Предмет: Математика,
автор: m70163