Предмет: Информатика,
автор: Smolllev
Напишите программу вычисления произведений.(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.
Если решение задачи будет не верно, извените значит надо писать более подробно.
HelJohannsonProgramm:
Ошибка не end; а end.
ок
var x,n:integer;
begin
readln(n);
for i=:1 to n do
x:= (x-n);
end;
begin
readln(n);
for i=:1 to n do
x:= (x-n);
end;
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-n);
end.
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-n);
end.
Последнее это верное решение ((
а что за
?
?
Решение в ответах и объяснениях исправил.
так у тебя всеравно так br
Ну я всмсле из коменнов занёс в главный ответ.
ааа
Похожие вопросы
Предмет: Математика,
автор: mashaaa98
Предмет: Алгебра,
автор: alexlinok2007
Предмет: Беларуская мова,
автор: 0lllbtslll0
Предмет: Алгебра,
автор: Аймерей
Предмет: Математика,
автор: Октавия00