C++ Задача 2.

По заданным величинам радиусов оснований R и r и высоты h найти объем и площадь Исходные данные взять из контрольного примера.

Контрольный пример: R=20, r=10, h=30. Результат: S=4548.866, V=21980.

Как-то так, наверное

Объяснение:

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

   double a, x, b, c, D;

   

   cout<<"Введите a: "; cin >> a;

   cout<<"Введите b: "; cin >> b;

   cout<<"Введите c: "; cin >> c;

   

   D = pow(b,2)-4*a*c;

   if(D>0){

   cout << "x1 = " << ((-1)*b+sqrt(D))/(2*a)<<endl;

   cout << "x2 = " <<((-1)*b-sqrt(D))/(2*a)<<endl;

   }

   else if(D==0){

       cout << "x = " << ((-1)*b)/(2*a)<<endl;

   }

   else{

    D*=(-1);

    cout<< "x1 = " << ((-1)*b)/(2*a) <<"+"<< (sqrt(D))/(2*a) << "*i" <<endl;

    cout<< "x2 = " << ((-1)*b)/(2*a) <<"-"<< (sqrt(D))/(2*a) << "*i" <<endl;

   }

   return 0;

}

//PascalABC.NET
//Постройте алгоритм и составьте программу, по которой будет реализован
//следующий вариант сценарий: компьютер запрашивает номер дня недели,
//после ввода компьютер сообщает название этого дня (типо если ввели
//1 это понедельник 3 - среда)

type Arr = array [0..6] of string;

begin
    var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда',
                'Четверг', 'Пятница', 'Суббота');
    write('Введите порядковый номер дня недели: ');
    var n := ReadlnInteger;
    write('Этот день называется ', DN[n mod 7])
end.