viết chương trình sử dụng while do để tìm in ra n(n là số tự nhiên) s=1,2,3....n n là số lớn nhất và nhỏ hơn 50
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
3 tháng 3 2023
n = int(input('Nhập số n lớn hơn 2: '))
tong = 0
i = 2
while i <= n:
tong += i
i += 1
print('Tổng các số từ 2 đến', n, 'là:', tong)
KV
29 tháng 4 2022
Var i,s:integer;
Begin
i:=0;
While s<=1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n nho nhat la ',i);
Readln;
End.
31 tháng 3 2021
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>=10;
a[1]:=10;
i:=1;
while i<=n do
begin
i:=i+1;
a[i]:=a[i-1]+2;
end;
dem:=0;
for i:=1 to n do
begin
write(a[i]:4);
dem:=dem+1;
if dem mod 10=0 then writeln;
end;
readln;
end.
ML
1 tháng 3 2021
Program HOC24;
var i,n,t: integer;
begin
n:=1; t:=0;
while t<=500 do
begin
t:=t+n;
n:=n+1;
end;
writeln('Tong la: ',t);
write('So N nho nhat de tong lon hon 500 la: ',n);
readln
end.
1 tháng 3 2021
*Cách khác: Dùng Repeat Until
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
n:=0;
repeat
n:=n+1;
t:=t+n;
until t>500;
writeln(t);
writeln(n);
readln;
end.
5 tháng 5 2021
uses crt;
var s,n:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=50 do
begin
n:=n+1;
s:=s+n;
end;
writeln(n);
writeln(s);
readln;
end.
GB
7 tháng 5 2023
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
giúp mình với
cảm ơn