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

Dmitry228q Dmitry228q    2   01.04.2020 21:56    1

Ответы
Екатерина2301 Екатерина2301  12.10.2020 12:25

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.


Составить в Паскале программу вычесления значения функции y=1×2×3×...×N для N=20
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика