Tính A=1+2+3+.....+N (nhập từ bàn phím) Sử dụng lệnh while.....do Giúp e vs mn ơi Thanks nhiều ạ!!!
2 câu trả lời
program ct;
uses crt;
var i,N:integer;
A:longint;
begin clrscr;
write('Nhap so N: '); readln(N);
A:=0; i:=0;
while i<=N do
begin
A:=A+i;
i:=i+1;
end;
writeln('Tong A la: ',A);
readln;
end;
Học tốt!
uses crt;
var i,n:integer;
S:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
S:=0; i:=0;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
writeln('Tong 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
