Đây là các bài thi khảo sát HSG nè

Đề:cho một dảy số gồm n phần tử ,in ra mang ban đầu,in ra tổng các ước của a[i] (không kể a[i]);tìm phần tử có tổng ước lớn nhất:

Code:: program bt;
uses crt;
var a:array[1..100] of integer;
s,max,max1,i,n,j:integer;
begin
clrscr;
writeln('nhap n');
readln(n);
for i:=1 to n do
begin
writeln('nhap a[',i,']=');
readln(a[i]);
end;
max:=s;
max1:=a[i];
for i:=1 to n do
begin
write(a[i]:5);
writeln;
end;
s:=0;
for i:=1 to n do
begin
for j:=1 to a[i]-1 do
begin
if a[i] mod j = 0 then
s:=s+j;
end;
writeln('tong uoc a[',i,']la',s);
if max < s then
begin
max1:=a[i];
max:=s;
end;
s:=0;
end;
writeln('phan tu co tong uoc lon nhat la', max1:2);
readln;
end.

Đề:cho 1+3+5+7+9...+(2n+1)=225;tìm giá trị của n;

Code:: program bt;
uses crt;
var n,s:integer;
begin
clrscr;
i:=1;
repeat
s:=s+i;
i:=i+2;
until s=225;
writeln('n=',(i/2)-1);
readln;
end.

Cái này ADMIN làm hả Đây là các bài thi khảo sát HSG nè 593575376

Em đang cần bài này Very Happy

Admin đã viết:

Đề:cho một dảy số gồm n phần tử ,in ra mang ban đầu,in ra tổng các ước của a[i] (không kể a[i]);tìm phần tử có tổng ước lớn nhất:

Code:: program bt;
uses crt;
var a:array[1..100] of integer;
s,max,max1,i,n,j:integer;
begin
clrscr;
writeln('nhap n');
readln(n);
for i:=1 to n do
begin
writeln('nhap a[',i,']=');
readln(a[i]);
end;
max:=s;
max1:=a[i];
for i:=1 to n do
begin
write(a[i]:5);
writeln;
end;
s:=0;
for i:=1 to n do
begin
for j:=1 to a[i]-1 do
begin
if a[i] mod j = 0 then
s:=s+j;
end;
writeln('tong uoc a[',i,']la',s);
if max < s then
begin
max1:=a[i];
max:=s;
end;
s:=0;
end;
writeln('phan tu co tong uoc lon nhat la', max1:2);
readln;
end.

bài này em làm mãi chả được

ADMIN vừa đi thi xong nhưng ko đậu vì lam thiếu mới về nhà bổ xung
Đây là các bài thi khảo sát HSG nè 1591449215

vào phòng thi hồi hộp quá quên bậy quên bạ

Bởi vậy khi đi thi cần phai bình tĩnh

Còn bài này nữa nè

Code:: program bt;
uses crt;
var n,max:integer;
begin
clrscr;
writeln('nhap so n');
readln(n);
max:=n mod 10;
repeat
if max <n mod 10 then
max:=n mod 10;
n:=n div 10;
until n<=0;
writeln('chu so lon nhat la',max);
readln;
end.

bài này là tìm chử số lớn nhất trong một số

em cũng mới tham gia...máy anh cho em chút kinh nghiệm nha...em cúi năm ni thi rùi

Viết chương trình PASCAL tính giá trị biểu thức S, kết quả hiển thị làm tròn đến chữ số thập phân thứ sáu. Biết:

s=2013+(1.4/2.3)+(2.5/3.4)+....+((2011.2014)/(2012.20130))

các bạn giải giúp minh với