Необходимо сделать в Паскале:Составьте программку, составьте программку, которая вычисляет

Необходимо сделать в Паскале:

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

Задать свой вопрос
1 ответ
Var p,i, n:integer;

begin
   p:=1;
   writeln('Введи n');
   readln(n);
   if ngt;=1 then
    begin
    for i:=1 to n do
    p:=p*i;
    writeln(p);
    end else writeln('ngt;=1');
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт