Написать программу вычисления квадратного выражения x2-x-2=0

Question

Информатика

Устиния

8 июля, 12:35

Написать программу вычисления квадратного выражения x2-x-2=0

+3

Ответы (1)

Знаете ответ?

Ведя · Answer 1

Var X, D, B, C, A, F: integer;

Begin

X : = StrToInt (Edit1. Caption) ;

A : = sqr (X) ;

C : = 2;

B : = X;

F : = A - B - C;

Edit2. text : = IntToStr (F) ;

End;