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

Question

Информатика

Дроня

9 июля, 05:58

Написать программу вычисления квадратного выражения 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;