Giải câu 7 trang 60 SGK Tin học lớp 8
Chia sẻ trang này
Hãy sửa lại chương trình ở Ví dụ 5 để tính tổng các số tự nhiên chia hết cho 3 không vượt quá N cho trước.
Hãy sửa lại chương trình ở Ví dụ 5 để tính tổng các số tự nhiên chia hết cho 3 không vượt quá N cho trước
Lời giải :
program Tinh_tong;
var N,i:integer;
S:longint;
begin
write('Nhap so N = ');
readln(N);
S:= 0;
for i:= 1 to N do
if (i mod 3 = 0) then
begin
S:= S+i;
end;
writeln('Tong cua', N, 'so tư nhien dau tien S = ', S);
readln;
end.
Chia sẻ trang này
Các bài học liên quan
Các chương học và chủ đề lớn
- Bài 1. máy tính và chương trình máy tính
- Bài 2. làm quen với chương trình và ngôn ngữ lập trình
- Bài 3. chương trình máy tính và dữ liệu
- Bài 4: sử dụng biến trong chương trình
- Bài 5: từ bài toán đến chương trình
- Bài 6: câu lệnh điều kiện
- Bài 7: câu lệnh lặp
- Bài 8: lặp với số lần chưa biết trước
- Bài 9: làm việc với dãy số
