Найти произведение чисел от 1 до 20 составить программу Помогите пожалуйста

Question

Найти произведение чисел от 1 до 20 составить программу
Помогите пожалуйста

Comments

В какой программе пишите?

---

Используй repetition : { if(i=0;i<=20;i+1) }

---

Паскаль

---

Мне так проще )

Answer 1

Program k2;
uses crt;
Var b,i,p:integer;
begin
clrscr;
Write('Vvedite b bolyshe 1 i menyshe 20 = ');
readln(b);
p:=1;
for i:=1 to b do begin
p:=p*i;
end;
write('Proizvedenie = ',p);
readln;
End.