Найти
в) произведение всех целых чисел от 1 до b (значение b вводится с клавиату-
ры; 1<= b <=20); выполнить на языке программирования C++ использую for

#include <iostream>

int main()

{

unsigned int b;

unsigned long int result = 1;

std::cin >> b;

for(auto i = 1u; i <= b; ++i)

{

 result *= i;

}

std::cout << result;

return 0;

}

Объяснение:

Ищет произведение чисел в диапазоне [1;b].

Если b включать не нужно, в for измените i <= b на i < b

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.