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.
Uses crt;
Var i,tong:integer;
Begin
tong:=0;i:=1;
While i<=1000 then
Begin
tong:=tong+i;
i:=i+1;
End;
Writeln('Tong: ',tong);
readln;
End.
program tim_n;
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<500 do
begin
for i:=1 to n do tong:=tong+i;
if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to 500 do
begin
t:=t+i;
if t>500 then
begin
writeln(i);
break;
end;
end;
readln;
end.
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 1000 do
if (i mod 10=5) and (i mod 2=1) then t:=t+i;
writeln(t);
readln;
end.
program tinhtong;
uses crt;
var i, n, s: integer;
begin clrscr;
Write('N so tu nhien dau tien la: ');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
giúp mình câu này luôn nhé
In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên
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.
uses crt;
var i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=100 to 1000 do
s:=s+i;
writeln(s:0:0);
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0; i:=1;
while (i<=n) do
begin
if n mod i=0 then t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
Tham khảo:
Uses crt;
Var S, i: integer;
Begin
clrscr;
S : = 0;
i := 1;
while i <= 10 do
begin
S := S + i;
i := i + 1;
end;
writeln (S);
readln;
end.
python
i = 1
tong = 0
while tong <= 150:
tong += i
i += 1
print("Số lần lặp là:", i-2)
print("Tổng các số tự nhiên liên tiếp là:", tong-i)