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

Bài 1:

Input: Số n

Output: Kiểm tra xem n có chia hết cho 5 ko

Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: Nếu n chia hết cho 5 thì xuất ra có

không thì không

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

Viết ct:

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 5=0 then write('yes')

else write('no');

readln;

end.

*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.

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

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

Output: Tổng của chúng

Bước 1: Nhập N

Bước 2: A←0; i←1;

Bước 3: Nếu i<N thì in ra kết quả và kết thúc

Bước 4: A←A+1/(i*(i+2));

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