Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+1/sqr(i);

write('Ket qua: ',s:5:2);

readln

end.

Câu 1: 

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

  t:=t+i;

writeln(t);

readln;

end.

lx

giúp ?

Cú pháp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Hoạt động:

- Sau mỗi lần lặp biến đếm tăng thêm 1 đơn vị

- Vòng lặp kết thúc khi biến đếm bằng giá trị cuối

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<t<<endl;

for (i=1; i<=n; i++)

if (a[i]%2==0) cout<<a[i]<<" ";

cout<<endl;

for (i=1; i<=n; i++)

if (a[i]%2!=0) cout<<a[i]<<" ";

return 0;

}

Program HOC24;

var P: integer;

i: byte;

begin

p:=0;

for i:=1 to 201 do if i mod 2=1 then p:=p+i;

write('P= ',p);

readln

end.

Câu 3: B

Giải thích: N=6 -> Vì N là giá trị cuối của vòng lặp => có 6 lần lặp 

S:=S+2*i => Vòng lặp sẽ cộng giá trị nhân đôi của các số từ 1 đến 6 

-> 2+4+6+8+10+12 = 42 -> Chọn B

Câu 4: C (Định nghĩa SGK)

Câu 5: A

Giải thích:

For i:=1 to 10 do write(i,' ');

-> có 10 lần lặp bắt đầu từ giá trị đầu là 1 và giá trị cuối là 10 thực hiện in ra giá trị i cùng với xâu ' ' (một dấu cách) 

=> Kết quả: 1 2 3 4 5 6 7 8 9 10

Câu 6: B

Giải thích: Vì hành động này chưa biết được tâng bao nhiêu quả sẽ rớt

Mình cám ơn

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap so phan tu n: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

s:=1;

for i:=1 to n do s:=s+a[i];

write(s);

readln

end.