Две программы на Pascal и C++

Составьте программу, которая вычисляет произведение чисел от 1 до N. Значение N вводится с клавиатуры.

program pow;
var
    i, N, p of integer;
begin
    write("N = "); 
    readln(N);
    p := 1;
    i := 0;
    while i <= N do
    begin
        i := i + 1;
        p := p * i;
    end;
    writeln("p = ", p);
end.
#include <iostream>
int main() {
    int i = 0, p = 1, N;
    std::cout << "N = ";
    std::cin >> N;
    while (++i <= N)
        p *= i;
    std::cout << "p = " << p << std::endl;
    return 0;
}

Comments are closed