1. Информатика
  2. Решите в pascal это уравнение

Решите в pascal это уравнение

DarthRevan8 DarthRevan8    1   19.01.2020 13:39    1

Ответы
Razzey Razzey  19.01.2020 17:03

program dy;

var x,b,a,c: integer;

uses crt;

begin

clrscr;

writeln('введи число, потом второе, потом третье');

readln(b,a,c);

if (b> 0) and (a> 0) and (c> 0)

then writeln('решение есть х= ', ((-b+b*b-4*a*c)/2*a))

else writeln('решения нет')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ильяна111 Ильяна111  13.08.2019 05:30
1. составить программу которая выводит на экран сумму чисел кратных числу 8 из промежутка от 34 до 89. 2. введите количество учащихся в группе по информатике и четвертную...
freks2 freks2  13.08.2019 05:30
Составить алгоритм дерева у себя во дворе...
prisyazhnasvet prisyazhnasvet  13.08.2019 05:30
Определи, высказывание является ложным или истинным. периметр прямоугольника с длинами сторон k и s равен 2⋅(k+s)....
Bomb9931 Bomb9931  13.08.2019 05:30
Переведите двоичные числа в восьмеричную систему счисления: а) 110000110101; б) 1010101,110010; в) 11100001011001; г) 1000010101. с решением....
mary309 mary309  13.08.2019 05:40
Переведите числа из восьмеричной системы счисления в десятичную: а) 326; б) 1234. с решением...
Медет111111 Медет111111  13.08.2019 05:40
Алфавит содержит 8 символов какой информационый вес символа этого алфавита...
Kamila7811 Kamila7811  13.08.2019 05:40
204 байт перевести в кбайт 3мбайт перевести в байт одна вторая кбайт перевести в бит...
Тэхен10 Тэхен10  13.08.2019 05:40
Логическое выражение: f=не(а& b)|не(b& c)...
asdgvhmh asdgvhmh  13.08.2019 05:50
Составить программу в паскале. тестируется группа из n человек. каждый вводит 1,если изучает ,2-,3-французский,0-никакой. определить сколько человек в каждой языковой группе....
Цоніма Цоніма  13.08.2019 05:50
Информационый вес символа равен 5 бит какова мощьность алфавита...

Популярные вопросы