Viết chương trình và mô tả thuật toán

[nguyenthimynhaso15@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Câu 1: Mô tả thuật toán tính tổng các số tự nhiên chẵn không lớn hơn 50?
Câu 2: Mô tả thuật toán tính tổng các số tự nhiên lẻ không lớn hơn 50?
Câu 3: Viết chương trình nhập vào 2 số nguyên a và b và in ra màn hình số lớn hơn trong 2 số?

 

[iceghost]

1)
B1 : $i \leftarrow 0;S \leftarrow 0$
B2 : Nếu $i$ chia hết cho $2$ thì $S \leftarrow S + i$
B3 : Nếu $i < 50$ thì $i \leftarrow i+1$ và trở lại bước $2$
B4 : Kết thúc thuật toán

2)
B1 : $i \leftarrow 0;S \leftarrow 0$
B2 : Nếu $i$ chia cho $2$ dư $1$ thì $S \leftarrow S + i$
B3 : Nếu $i < 50$ thì $i \leftarrow i+1$ và trở lại bước $2$
B4 : Kết thúc thuật toán

3)

program sosanhab;
uses crt;
var a,b:integer;
begin
    clrscr;
    write('Nhap a = '); readln(a);
    write('Nhap b = '); readln(b);
    if a>b then write('So lon hon la a = ')
    else if a<b then write('So lon hon la b ')
    else write('Hai so a,b bang nhau');
    readln
end.