Pascal написать программу с использованием цикла с параметром. дано целое число n (> 0 найдите произведение 1/6*4/11**n^2/(n^2+2n+3) (вещественное число)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var p:=1.0;
  for var i:=1 to ReadInteger('n=') do
    p*=sqr(i)/(sqr(i+1)+2);
  Writeln(p)
end.

Тестовое решение
n= 10
0.00308222811150801

Чтобы решить эту задачу, воспользуемся методом программирования:

1) напишем функцию, которая получает число в качестве аргумента и моделируя процесс преобразивания из условия возвращает результат:

int f(int n){

   int d[4];

   for(int i = 0; i < 4; i++){

       d[3 - i] = n % 10;

       n /= 10;

   }

   int u = d[0] + d[3], v = d[1] + d[2];

   string res;

   u < v ? res += to_string(u) + to_string(v) : res += to_string(v) + to_string(u);

   return stoi(res);

}

2) так как нам нужно найти наибольшее четырехзначаное число, дающее результат 815, то запускаем цикл, идущий от самого большого четырехзначного числа(9999) до самого маленького(1000), и как только нам встретится число, дающее в результате нужное число(815), выведем его в консоль, и закончим работу программы, то, что выведет программа и будет ответом:

полный код(результат работы на фото) :

#include <iostream>

using namespace std;

int f(int n){

   int d[4];

   for(int i = 0; i < 4; i++){

       d[3 - i] = n % 10;

       n /= 10;

   }

   int u = d[0] + d[3], v = d[1] + d[2];

   string res;

   u < v ? res += to_string(u) + to_string(v) : res += to_string(v) + to_string(u);

   return stoi(res);

}

int main(){

   for(int i = 9999; i >= 1000; i--){

       if(f(i) == 815){

           cout << i;

           return 0;

       }

   }

}

ответ: 9806

Промышленные — участвующие в производственном процессе изготовления изделий и деталей.

Бытовые — предназначенные для облегчения жизнедеятельности человека.

Медицинские — предназначенные для работы в медицинской отрасли, облегчающие труд врачам и исключить человеческий фактор.  

Военные — предназначенные для ведения боевых действий и обороны различных стран мира. К ним можно отнести различные противовоздушные системы, сапёры, военные беспилотники.

Объяснение:

Робот бытовой , предназначенный для человеку в повседневной жизни , яркие примеры : робот пылесос , робот мойщик окон .