Помогите написать программку в турбо паскале . 3В

Помогите написать программку в турбо паскале . 3В

Задать свой вопрос
Криворучкова Нелли
Ага. Его бы еще где-то взять)
Геннадий Агадшиков
С 1994 года лицензии не выдаются.
Даниил Гуйван
У кого-то, да найдется :D
Toha Matjushko
ну я могу сходить к для себя в шк, там есть :D
Камилла Давиташвили
аа
Виталя Шадрич
ну елси б я в школе был )
Воловченко Семик
это предод из техникуму
Аделина Остапух
x и n вводятся с клавиатуры?
Vadim Kabitov
да
1 ответ

var s,x,n,i:integer;

begin

write('Введите x: ');

readln(x);

write('Введите n: ');

readln(n);

s:=1;

for i:=1 to n do

s:=s*(x-i);

writeln('Произведение равна: ',s);

readln;

end.

Sofja
там творение, а не сумма
Алина Борея
Подправил, чет впарился теснее ;w; Спасибо за замечание
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт