For12. Дано целое число N (> 0). Найти произведение 1.1 *1.2 * 1.3 *… (N сомножителей).
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 | program For12; var N, i :Integer; Rez:Real; begin Write('Введите N: '); Readln(N); rez:=1; For i:=1 to N do Rez:=Rez*(1+0.1*i); Writeln(Rez); end. |
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #include <stdio.h> int main(void) { int n; printf("N:"); scanf ("%i", &n); float rez=1; int i; for (i =0; i<=n; ++i) rez *= 1.0+(float)i/10; printf("rez = %f \n ",rez); return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # include <iostream> # include <windows.h> # include <cmath> using namespace std; int main () { SetConsoleCP(1251); SetConsoleOutputCP(1251); int N; double p = 1; double a = 1.1; cout << "Введите число N: "; cin >> N; for (int i = 1; i<=N; ++i) { p *= a; a += 0.1; } cout << "Произведение чисел = " << p << endl; system ("pause"); return 0; } |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования
