Для нахождения корней x1 x2 квадратного уравнения ax2+bx+c=0 сначала находится дискриминант d . предложите несколько вариантов представление коэффициентов a,b,c, дискриминанта d и решений x1,x2 посредством идентификаторов

ответ:Інформатика – це галузь науки, що вивчає структуру і загальні властивості інформації, а також питання, пов’язані з пошуком, збиранням, перетворенням, зберіганням, поширенням і використанням інформації у різних сферах людської діяльності.

Інформатика сформувалась як наука зав­дяки розвитку комп'ютерної техніки.

До складу інформатики входять:

1. Теоретична інформатика – цей розділ інформатики використовує математичні методи для спільного вивчення процесів обробки інформації.

2. Обчислювальна техніка – розділ у якому розробляються загальні принципи побудови обчислювальних систем.

3. Програмування – діяльність пов’язана з розробкою програмного забезпечення.

4. Інформаційні системи – це розділ інформатики, що включає: інформаційно-пошукові, інформаційно довідкові системи, сучасні глобальні системи зберігання, пошуку інформації.

5. Штучний інтелект – область інформатики в якій розглядаються складні проблеми, що знаходяться на перетині з психологією, фізіологією, лінгвістикою та іншими науками. Основне завдання навчити комп’ютер мислити подібно до людини.

Объяснение:

№1

var
a,b,v:real;
begin
readln(a,b);
v:=4/3*Pi*sqr(b/2)*(b/2);
a:=sqr(a)*a;
v:=a-v;
writeln(v:7:4);

end.

№2

var
s:string[6];
begin
readln(s);
if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))=
(strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then
writeln('Является') else
writeln('Не является');

end.

№3

var
a,b:integer;
begin
readln(a,b);
if (a<90) and (b<90) and (180-a-b<90) then
writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.