Var x,y:real; begin writeln ('Введите x: '); read (x); if x>=1.5 then begin y:=SQRT(2*x-3); writeln('y = ', y); end else writeln ('Под корнем отрицательное число!'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
