1.Tìm tất cả các số đối xứng từ 1 đến n với n là số nguyên dương n được nhập vào từ bàn phím P/s: Mọi người viết chương trình pascal hộ mình. Chương t

0 bình luận về “1.Tìm tất cả các số đối xứng từ 1 đến n với n là số nguyên dương n được nhập vào từ bàn phím P/s: Mọi người viết chương trình pascal hộ mình. Chương t”

1. PROGRAM BAI1a;

   VAR N,: 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ình luận