Bn xem đúng k nhé:

Bước 1: MAX =60 I=1Bước 2: nếu MAX >I thì I:= I+1 , ngược lại kết thúc chương trìnhBước 3: nếu MAX > I kết thúc chương trìnhINPUT: 60 số tự nhiên đầu tiênOUTPUT: tính tổng

Chúc bn hok tốt~~

Bước 1: Tong←0; i←1;

Bước 2: Nếu i > 60 in ra Tong của 60 số tự nhiên đầu tiên và kết thúc

Bước 3: Nếu i chia 2 dư 0 thì T ← T + i;

Bước 4: i← i + 1, quay lại bước 2

Bước 1: t←0; i←1;

Bước 2: nếu i mod 2=0 thì t←t+i;

Bước 3: i←i+1;

Bước 4: Nếu i<=60 thì quay lại bước 2

Bước 5: Xuất t

Bước 6: Kết thúc

a) Tổng của 50 số tự nhiên đầu tiên

Xác định bài toán: 

-Input: 50 số tự nhiên đầu tiên

-Output: Tổng của 50 số đó

Mô tả thuật toán:

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=n thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

b) Kiểm tra a là số chẵn hay số lẻ

Xác định bài toán

-Input: Số a

-Output: Kiểm tra xem a là số chẵn hay số lẻ

Mô tả thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn

không thì a là số lẻ

-Bước 3: Kết thúc

*Mô tả thuật toán:

- Bước 1: s <- 1

- Bước 2: i <- 1 đến 100 thì s <- s*i

- Bước 3: Xuất s

- Bước 4: Kết thúc thuật toán

*Viết chương trình:

Program tinh;

Uses crt;

Var s: longint;       

       i: integer;

Begin

Clrscr;

s:=1;

For i:=1 to 100 do s:=s*i;

Writeln(s);

Readln;

End.

program bai1;

uses crt;

var a,b,c,s: real;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

s:=a+b+c;

writeln('tong ba so a,b,c =',s:4:2);

readln;

end.

program bai1;

uses crt;

var n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

if n mod 2 = 0 then

writeln('la so chan ') else

writeln('la so le ');

readln;

end.

bài 3 :

B1: S <- 0 ; i<-0;

B2: i<- i+1;

B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.

Mô tả thuật toán: 

-Bước 1: i←0; s←1;

-Bước 2: i←i+1;

-Bước 3: s←s*i;

-Bước 4: Nếu i<=100 thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

Viết chương trình thì kiểu dữ liệu của 100 số tự nhiên đầu tiên là lớn quá bạn

*Mô tả thuật toán:

- Bước 1: s <- 1

- Bước 2: i <- 1 đến 100 thì s <- s*i

- Bước 3: Xuất s

- Bước 4: Kết thúc thuật toán

*Viết chương trình:

Program tinh;

Uses crt;

Var s: longint;       

       i: integer;

Begin

Clrscr;

s:=1;

For i:=1 to 100 do s:=s*i;

Writeln(s);

Readln;

End.

Ta có dãy 1 , 2 , 3 , ... , 1000

Chia ra thành 2 dãy 

Chẵn : 2 , 4 , 6 , ... , 1000

Lẻ : 1 , 3 , 5 , ... , 999

Mỗi dãy có số số hạng là :

1000 : 2 = 500 ( số )

Tổng các số chẵn là :

( 1000 + 2 ) x 500 : 2 = 250 500

Tổng các số lẻ là :

( 999 + 1 ) x 500 : 2 = 250 000

Tổng số chẵn hơn tổng số lẻ là :

250 500 - 250 000 = 500

Đáp số : 500

Đề sai rồi bạn