• Нужно сделать в Паскале:

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

Ответы 1

  • var p,i, n:integer;begin   p:=1;   writeln('Введи n');   readln(n);   if n>=1 then    begin    for i:=1 to n do    p:=p*i;    writeln(p);    end else writeln('n>=1');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years