cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:=0; 

For i:=2 to 8 do S :=S+i 

b) S:=0; n:=1;

For i:=1 to 6 do

    Begin

          S:=S+n;

           n:=n+i;

   end;

c) S:=2;

For i:=1 to 10 do

     If(i mod 2)=0 then S:=S+i;

d) S:=0; i:= 1,5;

While S<7 do S:=S+i;

e) S:=0; i:=1;

While i<9 do

             Begin

                   S:=S+i;

                    i:=i+2;

                End;

f)   S:=2;  i:=1;

While i<= 10 do

Begin

If (i mod 2) then S:=S+i;

       i:=i+1;

End;

Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau

Câu a)

          i := -1;

          j:= 20;

For   k:= 1 to 5 do

          If  k   mod   2  = 0   then    i:= i + 1;

j := j + i;

Writeln(i,‘   ’,j);

Câu b)

n := 127;

m := 0;

While  n < >0  do

Begin

                   m := m * 10 + n  mod  10;

                   n := n  div  10;

end;

writeln(m);

Bài 1. Cho dãy số nguyên N và dãy a1, a2, a3, .., an (0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa phần tử x và xuất mảng sau khi xóa.

Bài 2. Cho dãy số nguyên N và dãy a1, a2, a3, …, an(0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa các phần tử trùng nhau chỉ giữ lại một phần tử và xuất mảng sau khi xóa. 

Ai đó giúp mình 2 bài này theo pascal với được ko? Mình thật sự không biết làm :(( Ai đó giúp mình 2 bài này theo pascal với được ko? Mình xin cảm ơn nhiều!!

Có N người (đánh số thứ tự từ 1 đến N) và tình trạng quen biết của N người này được cho bởi mảng hai chiều A(N,N) đối xứng qua đường chéo chính, trong đó A[i,j] = A[j,i] = 1 nếu i quen j và bằng 0 nếu i không quen j (quy ước A[i,j]=0 nếu i=j). Hãy xét xem liệu có thể chia N người đó thành 2 nhóm mà trong mỗi nhóm hai người bất kỳ đều không quen nhau ? . Nếu được thì làm theo chương trình lớp 11 giúp mình

1) Viết mỗi tập hợp sau bằng cách liệt kê các phần tử

a) A = { x thuộc N / x = m x ( m +1 ) với m = 0 ; 1 ; 2 ; 3 ; 4

b) B = { x thuộc N / 2 x m với m = 0 ; 1 ; 2 ; 3 ; 4 ; 5

c) C = { x thuộc N / x = 3 x a - 2 với a = 0 ; 1 ; 3 ; 5 ; 7

d) D = { x thuộc N / x = m x n x n với n = 0 ; 1 ; 2 ; 3 ; 4

giúp mink với mink đang cần gấp lắm luôn

​ ai làm nhanh mà đúng mink tick cho

Cho thuật toán sau: Bước 1: Nhập số nguyên dương N và các số hạng a1, a2, …., aN;

Bước 2: i <-- 1; Đếm <--- 0;

Bước 3 : Nếu i> N thì đưa ra giá trị Đếm rồi kết thúc;

Bước 4: Nếu ai > 0 thì Đếm <--- Đếm +1;

Bước 5: Gán i <--- i+1, quay lại bước 3;

Nhập N=8 và dãy số có giá trị như sau: 4 -6 3 -8 -11 5 7 8

Câu 1 (vận dụng cao) Kết quả của biến i sau khi thực hiện thuật toán trên là: A. 3 B. 5 C. 8 D. 9 Câu 2. (vận dụng cao) Kết quả của biến Đếm sau khi thực hiện thuật toán trên là: A. 26  B. 27 C. 5 D. 9

Câu 3. (thông hiểu) Thuật toán trên dùng để: A. Tính tổng dãy số từ a1 đến aN B. Tìm Các số âm C. Đếm các số dương D. Tính tổng các số dương từ ai đến aN Câu 4. (vận dụng cao) Nếu ở Bước 4 ta thay phép so sánh ai > 0 thành ai