Задание 1Дана длина стороны равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиусы вписанной и описанной окружностей.Для решения данной задачи необходимо написать программу с использованием функций.Задание 2Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до A минут в месяц платится B рублей, а разговоры сверх установленной нормы оплачиваются из расчета С рублей за минуту. Вычислить плату за пользование телефоном для введенного времени разговоров за месяц.Стоимость оплаты и количество минут выбираются самостоятельно.Задание 3 Проанализировать возраст человека, чтобы отнести к одной из четырех возрастных групп: дошкольник, ученик, работник, пенсионер. Возраст вводится с клавиатуры.Задание 4Написать программу для возведения числа в степень n. Для возведения в степень написать отдельную функцию.

ответ: Задание 1

#include <iostream>

#include <cmath>

double getArea(double side)

{

double S = pow(side, 2) * sqrt(3) / 4;

return S;

}

double getHeight(double side)

{

double H = sqrt(pow(side, 2) - pow(side, 2) / 4);

return H;

}

double getInR(double side)

{

double R = side / sqrt(12);

return R;

}

double getOutR(double side)

{

double R = side / sqrt(3);

return R;

}

int main()  

{

double sideA = 3.5; // длина одной из сторон треугольника, произвольное число;

double area = getArea(sideA);

double height = getHeight(sideA);

double R1 = getInR(sideA);

double R2 = getOutR(sideA);

std::cout << "S = " << area << '\n' << "H = " << height << '\n' << "R1 = " << R1 << '\n' << "R2 = " << R2;

return 0;

}

Задание 4:

#include <iostream>

double Pow(double num, int power)

{

double n = num;

for (int i = 1; i < power; i++)

 num *= n;

return num;

}

int main()  

{

double a = Pow(2, 5); // 2^5=32  

std::cout << a;

return 0;

}

Summa1. Анализ

1. Задаются переменные s, i с целыми числовыми значениями.
2. Начало кода
3. Переменной s присваивается значение 0.
4. Цикл. Условие: при значении i от 1 до 5. Действие: присвоить переменной s значение, увеличенное на i.
5. Вывод значения переменной s.
6. Конец кода

Summa2. Анализ

1. Задаются переменные s, i с целыми числовыми значениями.
2. Начало кода
3. Переменной s присваивается значение 0, переменной i - значение 1.
4. Цикл. Условие: до тех пор, пока i меньше или равно 5. Действие: увеличить значение переменной s на і, значение переменной і - на 1.
5. Вывод значения переменной s.
6. Конец кода

Summa3. Анализ

1. Задаются переменные s, i с целыми числовыми значениями.
2. Начало кода
3. Переменной s присваивается значение 0, переменной i - значение 1.
4. Цикл. Условие: пока i не станет больше 5. Действие: увеличить значение переменной s на і, значение і - на 1.
5. Вывод значения переменной s.
6. Конец кода

Первая программа.

Program d_and_e;

Var
   a,b,sum_d,sum_e:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второеое число: ');
  ReadLn(b);
  sum_d:=(a div 10) + (b div 10);
  sum_e:=(a mod 10) + (b mod 10);
  WriteLn('сумма десятков чисел: ', sum_d);
  WriteLn('сумма единиц чисел: ', sum_e);
end.

Вторая программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,mult_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  mult_e1_d2:=(a mod 10) * (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2);
end.

Третья программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,sum_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  sum_e1_d2:=(a mod 10) + (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2);
end.