Составить таблицу в эксель Составить таблицу, позволяющую автоматизировано рассчитывать квартплату квартиросьемщиков. Расчет квартплаты Р осуществляется по формуле: Р=k*B*S, Где: S - жилая или общая площадь, В- базовая стоимость одного квадратного метра, k -повышающий коэффициент за качество жилья. Квартплата начисляется за каждый квадратный метр общей площади, если квартира отдельная, и за каждый квадратный метр (1м2) жилой площади, если квартира коммунальная. Повышающий коэффициент - k равен: • 5 - для домов дореволюционной постройки после капитального ремонта, • 3, 5 - для домов “сталинской” постройки, • 2, 8 - для кирпичных домов современной постройки, • 2 - для домов дореволюционной постройки, не ремонтировавшихся, • для современных блочных домов. Базовая стоимость одного квадратного метра в общей площади в отдельной квартире равна 240 р., а жилой площади в коммунальной квартире 320 р. Базовая стоимость 1м и коэффициенты могут меняться. Требования к решению: 1- Каждая строка должна содержать следующую информацию: • ФИО жильца; • адрес; • категорию Дома (которая определяет величину повышающего коэффициента k), • тип квартиры (коммунальная или отдельная); • начисленную квартплату, • возможно какую-либо дополнительную информацию. 2- Для расчетов в таблице данные задать самостоятельно. 3- Предусмотреть в списке данных все категории Домов и типы квартир. 4- Вычислить: • общую сумму квартплаты в данном списке, • сумму квартплаты по категориям домов, • общую сумму квартплаты в данном списке. 5- Построить круговую диаграмму, показывающую распределение квартплаты по категориям. Рекомендации: • базовые стоимости 1м2 в хранить в отдельных ячейках, • величину повышающего коэффициента k для домов разных категорий задать в таблице- справочнике.

#include "conio.h" #include "stdlib.h" #include "iomanip" #include "iostream" #include "ctime" const int n=5; using namespace std;   void zapolnatb (int A[n][n]) {     srand(time(0));     for (int i=0;i<n;i++)     {         for (int j=0;j<n;j++)             A[i][j]=rand()%100-50;     } }   void vivodmat (int A[n][n]) {     for (int i=0;i<n;i++)     {         for (int j=0;j<n;j++)             cout<<setw(3)<<A[i][j];         cout<<endl;     } }   void naxogdenue (int A[n][n]) //max element v stroke {     int max;     int stl=0;     for(int i=0;i<n;i++)     {         max=A[i][0];         for (int j=0;j<n;j++)             if (max>A[i][j])             {                 max=A[i][j];                 stl=j;             }         cout<<setw(4)<<max<<setw(4)<<stl<<endl;     } }   void naxogdenuee (int A[n][n]) //min element v stroke {     int min;     int stl=0;     for(int i=0;i<n;i++)     {         min=A[i][0];         for (int j=0;j<n;j++)             if (min<A[i][j])             {                 min=A[i][j];                 stl=j;             }         cout<<setw(5)<<min<<setw(5)<<stl<<endl;     } }   void naxogdenueee (int A[n][n]) //min element v stolbce {     int min;     int str=0;     for(int j=0;j<n;j++)     {         min=A[0][j];         for (int i=0;i<n;i++)             if (min>A[i][j])             {                 min=A[i][j];                 str=i;             }         cout<<setw(6)<<min<<setw(6)<<str<<endl;     } }   void naxogdenu (int A[n][n]) //max element v stolbce {     int min;     int str=0;     int stl=0;     for(int j=0;j<n;j++)     {         min=A[0][j];         for (int i=0;i<n;i++)             if (min<A[i][j])             {                 min=A[i][j];                 str=i;                 stl=j;             }         cout<<setw(7)<<min<<setw(7)<<str<<endl;     } }   int main () {     int (A[n][n]);     zapolnatb (A);     vivodmat (A);     naxogdenue (A);     naxogdenuee (A);     naxogdenueee (A);     naxogdenu (A);     system ("pause");     return 0; }

Var
  a,r:real;
begin
  Write('Введите a и n: '); Read(a,r);
  if a=2*r then Writeln('Квадрат описан около окружности')
  else Writeln('Квадрат не описан около окружности')
end.



var
  n:char;
  cm:string;
begin
  Write('Введите натуральное двухзначное число: '); Readln(cm);
  Write('Введите цифру от 0 до 9: '); Readln(n);
  if pos('3',cm)>0 then Writeln('В числе есть цифра 3')
  else Writeln('В числе нет цифры 3');
  if (pos('6',cm)>0) or (pos('7',cm)>0) or (pos('9',cm)>0)
    then Writeln('В числе есть цифра 6,7 или 9')
    else Writeln('В числе нет цифры 6,7 или 9');
  if pos(n,cm)>0 then Writeln('В числе есть цифра ',n)
  else Writeln('В числе нет цифры ',n)
end.