Var a, b, x: real;
begin
write ('Vvedite koaficient a, b"') ;
readln (a, b) ;
if a0 then
begin
x: = - b/a;
writeln ('Koren yravnenia x=', x:9:3) ;
end
else if b0 then writeln ('Korney net') ;
else writeln ('x - luboe chislo') ;
end.
Как можно переделать программу, выдает ошибку?
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Var a, b, x: real; begin write ('Vvedite koaficient a, b"') ; readln (a, b) ; if a0 then begin x: = - b/a; writeln ('Koren yravnenia x=', ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Даны два числа. Найти среднее арифметическое кубов этих чисел. Что тут не так? program chisla; var a, b, sr: real; begin clrscr; writeln ('vvedite chislo a=') ; readln (a) ; writeln ('vvedite chislo b=') ; readln (b) ; sr: = ((a+a+a) * (b+b+b)) / 2;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, begin Randomize; writeln ('Masiv slychainix chisel') for I:=1 to 20 do begin Rand[I]:random (50) ; write (Rand[I]:4) end; writeln; write ('Vvedite X:')) ; readln (X) ;
Ответы (2)
Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа