uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
Hãy viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến N( sử dụng lệnh While ... do )
có thể giải nhanh đc ko ạ
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +1980?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0 . Tính tổng các số chẵn , tổng câc số lẻ đã nhập rồi in kết quả ra màn hình
Viết chương trình sử dụng lệnh lặp while....do... để đếm các số tự nhiên chia hết cho 5 từ 1 -> n được nhập từ bàn phím
