Viết chương trình tính tổng của 50 số tự nhiên đầu tiên bằng vòng lặp while...do
Những câu hỏi liên quan
sử dụng vòng lập while...do, viết chương trình tính tổng của 50 số tự nhiên đầu tiên
help
Program Tinh_tong ;
Uses Crt;
Var i ,S: integer ;
Begin
S: = 0 i;=0 ;
While < 51 do begin
i : = i + 1 ;
S: = S + i ;
end ;
Write ('Tong la',S);
End.
Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
Program HOC24;
var i,n,t: integer;
begin
t:=0; i:=1;
while t<=500 do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
Đúng 1
Bình luận (0)
sử dụng vòng lập while...do để viết chương trình tings tổng các số chẳn trong 50 sồ tự nhiên đầu tiên
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
i:=0;
while i<=50 do
begin
i:=i+2;
t:=t+i;
end;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím. giupa nha các hảo hán !
Đọc tiếp
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
tính tổng 100 số tự nhiên đầu tiên bằng vòng lặp for do và while do
Chương trình bằng vòng lặp for do
program tong100sotunhien;
var
i, s: integer;
begin
s := 0;
for i := 1 to 100 do
begin
s := s + i;
end;
writeln('Tong cua 100 so tu nhien dau tien la: ', s);
readln;
end.
Chương trình bằng vòng lặp while do
program tong100sotunhien;
var
i, s: integer;
begin
s := 0;
i := 1;
while i <= 100 do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua 100 so tu nhien dau tien la: ', s);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình tính tổng số tự nhiên băng 2 cách, sử dụng vòng lặp for-to-do và sử dụng vòng lặp while-do
GIÚP MÌNH VỚI
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
Đúng 1
Bình luận (1)
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...doCâu 2:Viết chương trình in ra màn hình 100 lần tên emCâu 3:Viết chương trình tính tổng N số tự nhiên đầu tiênCâu 4:Viết chương trình tính tính T1+1/2+...+1/nCâu 5:Vòng lặp sau cho biết kết quả S? S:0;For i:1 to 5 do S :S+2Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:5 to 10 do
Đọc tiếp
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...do
Câu 2:Viết chương trình in ra màn hình 100 lần tên em
Câu 3:Viết chương trình tính tổng N số tự nhiên đầu tiên
Câu 4:Viết chương trình tính tính T=1+1/2+...+1/n
Câu 5:Vòng lặp sau cho biết kết quả S=? S:=0;For i:=1 to 5 do S :=S+2
Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:=5 to 10 do
b) Em hãy viết chương trình Tính tổng của 20 số tự nhiên đầu tiên bằng câu lệnh for … do và while… do ?
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Đúng 1
Bình luận (0)
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng vòng lặp while....do để tính tổng của các số tự nhiên chia hết cho 2 không vượt quá số N cho trước.
Xem thêm câu trả lời
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
Đúng 1
Bình luận (0)