viết phương trình tính tổng n số tự nhiên đầu tiên bằng while do
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
21 tháng 3 2023
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.
21 tháng 3 2023
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.
ML
11 tháng 5 2023
while..do
Program HOC24;
var i: byte;
t: integer;
begin
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
8 tháng 5 2021
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
10 tháng 5
Câu 7: – Cú pháp câu lệnh lặp với số lần biết trước (for):
for biến := giá_trị_đầu to|downto giá_trị_cuối do câu_lệnh;
while điều_kiện do câu_lệnh;
Câu 8: Viết chương trình tính tổng N số tự nhiên đầu tiên
program TongNso; var N, i, Tong: integer; begin write('Nhap N: '); readln(N); Tong := 0; for i := 1 to N do Tong := Tong + i; writeln('Tong ', N, ' so tu nhien dau tien la: ', Tong); end.
Câu 9: Sử dụng lệnh lặp While..do để tính trung bình n số thực
program TinhTrungBinh; var n, i: integer; x, Tong: real; begin write('Nhap so luong n: '); readln(n); i := 1; Tong := 0; while i <= n do begin write('Nhap so thu ', i, ': '); readln(x); Tong := Tong + x; i := i + 1; end; writeln('Trung binh la: ', Tong / n:0:2); end.
4 tháng 4 2023
program Tinh_Tong;
var n, s, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
s := 0;
i := 1;
while i <= n do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
end.
9 tháng 3 2023
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.
program Tinh_tong;
uses crt;
var i,n:byte;
S:integer;
begin
clrscr;
writeln('Nhap so n='); readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+i; i:=i+1;
end;
writle('Tong n so tu nhien dau tien, S=',S);
end.
function sum_n(n: integer): integer;
var
i, sum: integer;
begin
sum := 0;
i := 1;
while i <= n do
begin
sum := sum + i;
i := i + 1;
end;
sum_n := sum;
end;