Известна температура воздуха в каждый из дней июля месяца. определить, какие из семи следующих подряд дней являлись самыми теплыми решить в паскале с массивов.)

1. "школьное решение" function f(n: integer): real; var   p: real;   i: integer; begin   p: =1;   for i: =1 to n do p: =p*i;   f: =p end; var   x,y,z: integer;   begin   write('введите x,y,z через пробел: ');   read(x,y,z);   writeln((f(x)+f(y))*f(z)) end. примеры введите x,y,z через пробел: 8 12 5 57485030400 введите x,y,z через пробел: 23 15 41 8.64815278005251e+71 2. современное решение // pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var f: integer-> bigiinteger: =n-> 1.to(n).aggregate(biginteger(,y)-> x*y);   var (x,y,z): =readinteger3('введите x,y,z через пробел: ');   writeln((f(x)+f(y))*f(z)) end. примеры введите x,y,z через пробел: 8 12 5 57485030400 введите x,y,z через пробел: 23 15 41 864815278005250908694716268480895614135710289321049211273216000000000000

#include < iostream> using namespace std; void countchars() {       char s[256];       cout < < "введите строку: ";       cin.getline(s, 256);       int count = 0;       for (unsigned int i = 0; i < strlen(s); i++)             count++;             cout < < "количество символов в строке: " < < count < < endl; } int main() {       setlocale(lc_all, "russian");       countchars();       system("pause");       return 0; } //================= // или так //================ #include < iostream> using namespace std; int countchars(char* s) {       int count = 0;       for (unsigned int i = 0; i < strlen(s); i++)             count++;       return count; } int main() {       setlocale(lc_all, "russian");       char s[256];       cout < < "введите строку: ";       cin.getline(s, 256);       cout < < "количество символов в строке: " < < countchars(s) < < endl;       system("pause");       return 0; }