Найти среднею температуру воздуха за неделю ( паскаль) программу напишите

  var n,k: integer; a: real; i: byte; begin for i: =1 to 7 do begin write('температура на   ',i,'день '); read(n); k: =k+n; end;   a: =k/7; writeln('средняя температура=',a); readln; readln; end.

   

Код на C++:

#include <iostream>

using namespace std;

int main()

{

   setlocale(LC_ALL, "rus");

   

   int color;

   cin >> color;

   switch (color)

   {

   case 0:

       cout << "Красный";

       break;

   case 1:

       cout << "Оранжевый";

       break;

   case 2:

       cout << "Желтый";

       break;

   case 3:

       cout << "Зеленый";

       break;

   case 4:

       cout << "Голубой";

       break;

   case 5:

       cout << "Синий";

       break;

   case 6:

       cout << "Фиолетовый";

       break;

   default:

       cout << "Нет такого цвета";

       break;

   }

   cout << endl;

   return 0;

};

Объяснение:

В  первый день он пробежал 10 или 10*(1,1)^0 во  втрой  10*1,1или 10*(1,1)^1 в  третий 10*1,1*1,1  или 10*(1,1)^2 и  так далее, если в  сумме  вынести 10 за скобки получим сумму   прогресии с b=1  и  q=1,1,  как известно сумма первых n  членов прогресии  равна b(1-q^n)/(1-q)  при  n=7  она  будет равна 9,487171 т.о.  общая  сумма  с  учетом  10  км  за  скобкой  будет  равна 94,87171  км ответ  94,87171  км