1) ГВДАБ
2) по кругам Эйлера на фото
1.44мегобайт
если я не ошибаюсь
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double a;
double b;
double c;
double x;
cout << "Введите значение a: ";
cin >> a;
cout << "Введите значение b: ";
cin >> b;
cout << "Введите значение c: ";
cin >> c;
if((b*b - 4*a*c) >= 0) //Если дискриминант больше или равен 0
{
x = ( -1*b + sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Первый корень равен " << x << endl;
x = ( -1*b - sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Второй корень равен " << x << endl;
}
else
{
cout << "Дискриминант меньше 0, <span>нет вещественных корней</span>." << endl;
}
return 0;
}
<u><em>Задание 1</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var x:=ReadReal('x-');
if x<-1 then Writeln(x*x+1)
else
if x<2 then Writeln(abs(x+5))
else
if x<5 then Writeln(1/(x-4))
else Writeln(sqrt(x+6*x))
end.
<u><em>Задание 2</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a,b,c:real;
Write('Введите стороны треугольника: ');
Read(a,b,c);
Write('Треугольник ');
if (a=b) and (b=c) then Write('равносторонний')
else begin
if (a=b) or (b=c) or (a=c) then Write('равнобедренный ');
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or
(b*b+c*c=a*a) then Write('прямоугольный')
else Write('непрямоугольный')
end;
Writeln;
var p:=(a+b+c)/2;
Writeln('Площадь равна ',sqrt(p*(p-a)*(p-b)*(p-c)))
end.
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end