Предмет: Информатика,
автор: Аноним
Нужно сделать в Паскале:
Составьте программу, составьте программу, которая вычисляет произведение чисел от 1 до n. Где n вводится с клавиатуры.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Английский язык,
автор: timokhakttrue
Предмет: Русский язык,
автор: ugaioleg623
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: roben