0

Как на паскале сделать корень

sqr это в квадрат, а как например √49=7, я просто решил калькулятор сделать program new1; uses graph ; var Picka: String ; var A,B: Real ; begin Read (Picka,A,B,) ; if (Picka)= '+' then A:= A+B ; if (Picka)= '-' then A:=A-B; if (Picka)= '÷' then A:= A/B ; if (Picka)= '×' then A:=A*B; if (Picka)= '^2' then A:=sqr(a+b*0) ; Write (A) ; end.

4th Oct 2018, 6:14 PM
Gokor8
1 Resposta
+ 1
Возвести в квадрат - sqr, извлечь корень - sqrt.
5th Jan 2019, 9:26 PM
Zerumi
Zerumi - avatar