Напишите программку вычисления произведений.(Turbo Pascal)(x-1)(x-2)(x-3)...(x-n);

Напишите программу вычисления творений.(Turbo Pascal)

(x-1)(x-2)(x-3)...(x-n);

Задать свой вопрос
1 ответ

var x,n:integer;

begin

readln(n);

readln(x);

for i=:1 to n do

x:= (x-i);

end.


Если решение задачки будет не правильно, извените означает надобно писать более подробно.

Ваня Шкапяк
Ошибка не end; а end.
Яна Скаминская
ок
Светлана
var x,n:integer;beginreadln(n); for i=:1 to n do x:= (x-n); end;
Кира Реззенова
var x,n:integer;beginreadln(n);readln(x); for i=:1 to n do x:= (x-n);end.
Геннадий Кулютин
Заключительное это верное решение ((
Полина Деснева
а что за ?
Джугели Макс
Решение в ответах и изъяснениях поправил.
Таня
так у тебя всеравно так br
Аня Палицких
Ну я всмсле из коменнов занёс в основной ответ.
Аналич Алёна
ааа
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт