Viết chương trình tính tổng các số chẵn từ 1 đến N, với N là số tự nhiên được nhập từ bàn phím. *Lưu ý: -ghi cả Xác định bài toán, mô tả thuật toán và Viết chương trình Mong mn help mee :<<
2 câu trả lời
`@`Xác định bài toán:
INPUT: Số tự nhiên N
OUTPUT: Tổng các số chẵn từ 1 đến N
`@`Mô tả thuật toán:
Bước 1: Nhập N
Bước 2: i←1; T←0;
Bước 3:Nếu i>N thì đi đến bước 6
Bước 4: Nếu i mod 2=0 thì T←T+i;
Bước 5: i←i+1; quay lại bước 3
Bước 6: Xuất T và kết thúc
`@`Viết chương trình:
Program baitap;
Uses crt;
Var i,T,N:integer;
Begin
Clrscr;
Write('N='); Readln(N);
T:=0;
For i:=1 to N do
If i mod 2=0 then T:=T+i;
Writeln('Tong cac so chan tu 1 den ',N,':',T);
Readln
End.
Thuật toán:
B1: Nhập n; gán s:=0;
B2: Lặp từ 1→N
B3: Kiểm tra số chẵn
B4: Gán s:=s+i
B5: In kết quả, kết thúc thuật toán.
Chương trình:
Program tong_so_chan;
Uses crt;
Var
S,N,I:Integer;
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do
If (I mod 2=0) then
S:=S+I;
Writeln('Tong cac so chan la ',S);
Readln;
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
