Câu lệnh lặp for... Do VCT nhập một số n nguyên dương từ bàn phím a. In ra màn hình số vừa nhập? b. Tính tổng các số chẳn từ 1 đến n?
2 câu trả lời
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
writeln('n la: ',n);
for i:=1 to n do
if i mod 2 = 0 then s:=s+i;
write('Tong cac so chan tu 1 den ',n,' la: ',s);
readln
end.
Uses crt;
Var i,n,s : integer;
Begin clrscr;
s:=0;
Writeln('Nhap so n '); readln(n);
writeln('n=',n);
For i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln('Tong cac so chan tu 1 den n la :', s);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
