Viết chương trình nhập vào n số nguyên dương (n

a)

PROGRAM BAI1a;

VAR N, Tle, Tchan: integer;

BEGIN

          Write ('Nhap N =');

          Readln (N);

          If (N mod 2) = 0 Then

          Tle := N*((N - 2)/2 + 1)/2;

          Tchan := (N + 2)*((N - 2)/2 + 1)/2;

          If (N mod 2) = 1 Then

          Tle := (N + 1)*((N-1)/2 +1)/2;

          Tchan := (N + 1)*((N - 3)/2 + 1)/2;

          WRITELN ('Sle =', Sle, 'Schan =', Schan);

          READLN;

          END.

b)

PROGRAM BAI1b;

VAR N; Sle; Schan: integer;

BEGIN

          Write ('Nhap N=');

          Readln (N);

          If (N mod 2) = 0 Then

          Sle := (N-2)/2+1;

          Schan := (N-2)/2+1;

          If (N mod 2) = 1 Then

          Sle := (N-2)/2+1;

          Schan := Sle - 1;

          WRITELN ('Sle =', Sle, 'Schan =', Schan);

          REANDL;

          END.

c) 

PROGRAM BAI1c;

VAR N, TBchan, TBle: integer;

BEGIN

          WRITE ('Nhap N=');

          READLN (N);

          If (N mod 2) = 0 Then

          TBchan := (N+2)/2;

          TBle := N/2;

          If (N mod 2) = 1 Then

          TBchan := (N+1)/2;

          TBle := (N+1)/2;

          WRITELN ('TBchan =', TBchan, 'TBle =', TBle);

          READLN;

          END.

d) 

PROGRAM BAI1d;

VAR N, k, S, i: integer;

BEGIN

          WRITE ('Nhap N, k');

          READLN (N, k);

          S := 0;

          For i := 1 to N Do

               If (i mod k) = 0 Then S := S + i;

          WRITELN ('Tong cac so chia het cho k =' S);

          READLN;

          END.

Bai 1:} 
program cap_so_cong; 
uses crt; 
var a: array[1..100] of integer; 
i, n, k: integer; {i la bien dem, k de luu cap so} 
begin 
clrscr; 
write('N= '); readln(n); 
for i:=1 to n do 
begin 
write('A(',i,')= '); readln(a[i]); 
end; 
{Bat dau phan kiem tra} 
k:=a[2]-a[1]; 
i:=2; 
repeat 
i:= i+1; 
until (a[i]<>a[i-1]+k) or (i>n); 
if i>n then write('Day A la mot cap so cong') 
else write('Day A khong phai la mot cap so cong'); 
readln 
end.