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.
program tim_tuoi;
uses crt;
var i,j,ngaysinh,tuoi, uoctuoi,k:integer;
begin
clrscr;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
begin
uoctuoi:=sqr(i)+sqr(j)+sqr(k);
tuoi:=i*100+j*10+k;for ngaysinh:=1 to 31 do
if tuoi =uoctuoi+ngaysinh then write('tuoi cua cu la: ',tuoi);
end;
readln;
end.
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
Câu 1:
uses crt;
var n,i,ln,max,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
max:=0;
ln:=1;
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if ln<t then max:=i;
end;
writeln(max);
readln;
end.
Cho n =1000000 thì load hơi chậm bạn à, với lại mấy cái biến phải là longint chứ nhỉ
Hành động của bạn có thể vi phạm một số quy định pháp luật, tùy thuộc vào quy định cụ thể của quốc gia bạn đang ở. Tuy nhiên, dưới đây là một số vấn đề pháp lý mà hành động của bạn có thể gặp phải: Bản quyền và Sở hữu trí tuệ: Nếu mẫu áo đó có bản quyền hoặc quyền sở hữu trí tuệ, việc sao chép, tái tạo mà không có sự cho phép của chủ sở hữu có thể bị coi là vi phạm quyền. Lừa đảo và Gian lận: Hành động của bạn có thể bị xem xét như một hình thức lừa đảo hoặc gian lận nếu bạn không thông báo cho người bán ban đầu và tự ý bán sản phẩm với giá rẻ hơn. Quy định về Kinh doanh trên Mạng xã hội: Các trang web mạng xã hội thường có các quy định và điều kiện sử dụng, và hành động của bạn có thể vi phạm những quy định này.
uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Anh thấy cũng hơi chậm
em tải cũng phải mất đến 10 giây đấy ạ