LN
2
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
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.
17 tháng 3 2021
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.
17 tháng 3 2021
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.
5 tháng 5 2021
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
5 tháng 5 2021
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
H9
HT.Phong (9A5)
CTVHS
24 tháng 3 2023
Uses crt;
var
begin clrscr;
k:=1;
s:=0;
while (s<700) do begin
k:=k+1
s:=s+k;
end;
writeln(s,' ',k);
readln;
end;
18 tháng 3 2022
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
24 tháng 4 2021
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
20 tháng 4 2021
Đề 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
20 tháng 4 2021
Đề 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
24 tháng 2 2021
uses crt;
var t,n:integer;
begin
clrscr;
t:=0;
n:=0;
while t<=10 do
begin
n:=n+1;
t:=t+n;
end;
writeln(t);
readln;
end.
uses crt;
var n:integer;
s:real;
begin
clrscr;
s:=1/1000;
n:=1 div s;
while s<=1/1000 do
begin
n:=n-1;
s:=1/n;
end;
writeln(n);
readln;
end.
KHÓ QUÁ BẠN ƠI MÌNH LỚP 12 MÀ CHỊU ĐÓ