Question

Составить в Паскале программу вычесления значения функции y=1×2×3×...×N для N=20

Answer 1

program fact20;

const

n=20;

var

i:byte;

f:int64;

begin

f:=1;

writeln('Множитель Произведение');

for i:=1 to n do

begin

f:=f*i;

writeln(i:5,' ',f:20);

end;

write('Итог 》 ',f);

end.