ответ описал в объяснении
Объяснение:
var a,b,c: real; //Объявление переменных a,b,c типа real(вещественный)
x1,x2,D: real; //Объявление переменных x1,x2,D типа real(вещественный)
begin //Начало программы, ее тело
readln(a,b,c); //Ввод с клавиатуры значений a,b,c
D := b*b - 4*a*c; //Формула вычисления дискриминанта
if D<0 then //Оператор если, в данном случае "ЕСЛИ ДИСКРИМИНАНТ МЕНЬШЕ НУЛЯ,ТО "
writeln('Корней нет') //Выполнение условия ЕСЛИ, вывод текста "Корней нет"
else if D=0 then begin // Условие ИНАЧЕ ЕСЛИ, проверка дискриминанта на принадлежность к нулю
x1 := -b/2/a; //Выполнение условия ИНАЧЕ ЕСЛИ, нахождение х1
writeln('x1=x2=',x1); //вывод корней
end //Окончание предыдущего блока begin
else begin //Условие ИНАЧЕ
x1 := (-b-sqrt(D))/2/a; //нахождение первого корня
x2 := (-b+sqrt(D))/2/a; //нахождение второго корня
writeln('x1=',x1,' x2=',x2); // вывод корней уравнения
end; //Окончание предыдущего блока begin
end. //Окончание программы
Программа заполняет массив из 10 элементов квадратами натуральных чисел в промежутке от 1 до 10 и считает среднее арифметическое этого массива. Если нужен другой интервал, измените размер массива.
using System;
namespace ConsoleApp1
{
class Program
{
const int ArraySize = 10; // Размер массива
static double Average(ref int[] A)
{
double res = 0;
for (int i = 0; i < ArraySize; i++)
res += A[i];
return res / ArraySize;
}
static void Main(string[] args)
{
int[] A = new int[ArraySize];
for (int i = 0; i < ArraySize; i++)
{
A[i] = (i + 1) * (i + 1);
Console.Write(A[i]+", ");
}
Console.WriteLine("Среднее арифметическое: {0}",Average(ref A));
}
}
}
ответ : Г, В, Б, А