Помогите безотлагательно! pascal abc: составьте программку вычисления неполного квадратного уравнения

Помогите безотлагательно! pascal abc: составьте программку вычисления неполного квадратного уравнения ax^2+c=0

Задать свой вопрос
1 ответ

var a ,i , b , c :integer;

f:array[0..8] of char;

begin

for i:=0 to 7 do

read(f[i]);

a:=strtoint(f[0]);

c:=strtoint(f[5]);  

b:=c div a;

write(-sqrt(b),' ' ,sqrt(b));

end.

я хз правильно ли я написал переверь ты

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт