Question

Hãy dùng các câu lệnh trong chương trình để viết một dãy số có số hạng đầu là 3 và mỗi số hạng liền nhau cách đều 3 đơn vị, biết rằng số hạng cuối cùng của dãy số nhỏ hơn 40. 

Answer 1

uses crt;

var a:array[1..15]of integer;

n:integer;

begin

clrscr;

n:=1;

a[1]:=3;

repeat

  n:=n+2;

a[n]:=a[n-1]+3;

until a[n]>40;

for i:=1 to n-1 do

  write(a[i]:4);

readln;

end.