Bài 2: Viết chương trình nhập số nguyên N. Tính tổng các số tự nhiên là số chẳn từ 1N. Ví dụ: N=10 Tổng các số chẵn từ 1 đến 10 là: (vì 2+4+6+8+10 = ..) Th
Lời giải 1 :
program tong;
uses crt;
var N, T, i : integer;
begin
clrscr;
write('Nhap so N = '); readln(N);
T := 0; i := 1;
while i <= N do begin
if i mod 2 = 0 then T := T + i;
i := i + 1; end;
write('T = ', T);
readln
end.
- Với N = 1000 thì sửa lại kiểu dữ liệu integer thành longint
- Vì giá trị T = 250500, vượt phạm vi lưu trữ integer;
Thảo luận
Lời giải 2 :
`@`Bài 2:
Ví dụ: ...... Tổnng các số chẵn từ 1 đến 10 là: 30 (vì 2+4+6+8+10=30)
Viết chương trình:
Program baitap;
Uses CRT;
Var N,T,i:longint;
Begin
Clrscr;
Write('N='); Readln(N);
T:=0;
For i:=1 to N do
if i mod 2=0 then
T:=T+i;
Writeln('T=',T);
Readln
End.
Chú ý: Thử chương trình bài 2 với N=1000. thì tổng các số chẵn là bao nhiêu? `->` Tổng T=250500
Nếu muốn tính được tổng các số chẵn với N=1000 thì ta phải sửa lại chương trình chỗ nào: Sửa lại dòng thứ 6 (Write('N='); Readln(N);) thành "N:=1000;"
________________________
Đã test code
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247