Сформировать массив А, состоящий из десяти элементов с номерами от 1 до 10. значения элементов вычислить в соответствии со следующим правилом ai= i! — Pascal(Паскаль)

var
a:array[1..10]of longint;
i:integer;
begin
a[1]:=1;
for i:=2 to 10 do
a[i]:=a[i-1]*i;
for i:=1 to 10 do
write(a[i],' ');
readln;
end.

Похожие записи/страницы:

Leave a Comment

+ 54 = 60