Исправте ошибку program qwer;
var a, b, c, d:integer;
begin
readln;
d:=b*b-4*a*c;
if (d>0) then
writeln ('2 корня')
else
if (d=0) then
writeln ('1 корень')
else
writeln ('нет корней')
end.
Пишет всегда 1 корень
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Исправте ошибку program qwer; var a, b, c, d:integer; begin readln; d:=b*b-4*a*c; if (d>0) then writeln ('2 корня') else if (d=0) then ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Помогите с ответом
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Данные имена существительные поставь форме множественного числа и запиши пары слов обозначь в словах ту часть которая изменяется при изменении слова по числам
Нет ответа
Яркий солнечный день. светит ... дует ... а вокруг ... Слова для составления предложения. Пушистая, молодая, зеленая, мягкая, сочная, как бархатная зеленеет, словно раскинулся ковер Желтые поговки, яркие фонарики огоньки, маленькие солнышки Растут,
Нет ответа
Обчисли значення виразу 3 х-у
Нет ответа
Новые вопросы по информатике
Какое слово лишнее: носок мозоль георгин помидор озимь цитадель фланель панцирь подстаканник подорожник подснежник подлокотник.
Ответы (1)
3. Из элементов массива С сформировать массив А той же размерности по правилу: если элемент четный, то A (I) = C (I) 2, если нечетный, то A (I) = 2*C (I)
Ответы (1)
В чем преимущество использования слоев в фотошопе?
Ответы (1)
Какие основные свойства компьютера? перечислите
Ответы (1)
Составьте алгоритм получения из числа 2 числа 55, содержащий не более 5 команд
Ответы (1)