Sử dụng câu lệnh lặp for ...do hay tính tổng 100soos tự nhiên chẵn đầu tiên. In kết quả lên màn hình
2 câu trả lời
program bt;
uses crt;
var i,S:integer;
begin
clrscr;
S:=0;
for i:=1 to 200 do if i mod 2 = 0 then S:=S+i;
write('Tong cua 100 so tu nhien chan dau tien la: ',S);
readln
end.
Program BTH;
Uses Crt;
var a,b:longint;
Begin
clrscr;
For a:=1 to 200 do
If a mod 2=0 then
b:=b+a;
writeln('Tong 100 so duong dau tien la: ',b);
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
