Bài 2. Cho dãy số: 7,8,10,13,...Tìm giá trị của số hạng thứ N của dãy số trên. Lưu dãy số trên vào mảng và in kết quả ra màn hình. Bài 3. Viết chương trình tính tích S=1*2*3*..*N. N được nhập vào từ bàn phím.

2 câu trả lời

bài 3

uses crt;

var i,n:integer;

s:real;

begin

s:=0;readln(n);

for i:=1 to n do

s:=s+1;

write(s);

end.

Cách 1: Khai báo trực tiếp biến mảng một chiều

Var<tên biến mảng> :array[kiểu chỉ số] of <kiểu phần tử>;

Cách 2: Khai báo gián tiếp biến mảng qua kiểu mảng một chiều

Type<tên kiểu mảng>=array[kiểu chỉ số] of <kiểu phần tử>; Var<tên biến mảng>:<tên kiểu mảng>;

xin hn ạ