Viết chương trình:
- Nhập vào một dãy số có độ dài N (N nhập từ bàn phím)
- In dãy số ra màn hình.
- In ra màn hình các số chính phương (số hình vuông) trong dãy số.
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.
Dành cho những bạn đang muốn nâng giải lên trên 100GP cho giải nhất:
- Thứ nhất, đây là giải thưởng đã được thầy và hội động hoc24.vn thông qua, vậy nên nếu có thay thì chủ cuộc thi sẽ cần kiến nghị lại với hội đồng trang, mất nhiều công sức và thời gian. Vả lại, mình khẳng định là các thầy cô sẽ không đồng ý với phương án này, vì số GP quá lớn. Đến nhất tuần mấy tuần nay, bỏ ra bao công sức giúp giải bài, còn khó kiếm lên trên 100GP nữa là.
- Thứ hai, cuộc thi này thuộc mảng môn phụ, chứ không thuộc mấy mảng trọng tâm hay chính như Toán, Văn, Lí, Hóa,... Mảng Tin học mấy tuần nay, nhất tuần có khi cũng chưa kiếm đến 10GP một tuần ấy chứ. Với cả cuộc thi Tin học lần trước chỉ có 20 người tham dự vòng 1, và có 2 vòng. Vậy nên không thể nào giải của cuộc thi này còn lớn hơn cả cuộc thi tiếng Anh của anh Minh trước đây được. Tham dự rất đông đảo và nhiệt tình, tỉ lệ "chọi" rất cao mà chung cuộc giải nhất chỉ có 100GP.
- Vậy nên, đây là một sân chơi bổ ích, để phát triển thêm kiến thức và kĩ năng, cũng như giải trí. Vậy nên với giải trên, mình nghĩ bạn chủ cuộc thi đã lựa chọn đúng giải.
- Nếu muốn kiếm thêm GP, các bạn có thể giúp đỡ các bạn trả lời câu hỏi. Trao đi cũng là nhận lại, trao càng nhiều thì nhận càng nhiều!
Đây là ý kiến của mình.
Yêu cầu: Hãy viết chương trình tính tổng số và liệt kê các bóng đèn sáng ở giây thứ T (1 <= T <= 3600), biết rằng ban đầu tất cả các bóng đèn đều tắt
Program HOC24;
var a,b,i,t: integer;
function ucln(x,y: integer): integer;
var tg:integer;
begin
while y<>0 do
begin
tg:=x mod y;
x:=y;
y:=tg;
end;
ucln:=x;
end;
begin
write('Nhap a : '); readln(a);
write('Nhap b : '); readln(b);
t:=0;
for i:=1 to ucln(a,b) do
if ucln(a,b) mod i=0 then t:=t+i;
write(t);
readln
end.
uses crt;
var a,b,t,i:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<b then
begin
t:=0;
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then t:=t+i;
writeln('Tong cac uoc chung cua ',a,' va ',b,' la: ',t);
end
else begin
t:=0;
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then t:=t+i;
writeln('Tong cac uoc chung cua ',a,' va ',b,' la: ',t);
end;
readln;
end.
Program HOC24;
var n,i,x,d: integer;
a: array[1..32000] of integer;
begin
write('Nhap N : '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
write('Nhap x : '); readln(x);
d:=0;
for i:=1 to n do if x=a[i] then d:=d+1;
writeln('So ',x,' xuat hien ',d,' lan ');
write('So ',x,' nam o nhung vi tri : ' );
for i:=1 to n do if a[i]=x then write(i,' ; ');
readln
end.
uses crt;
var a,vt:array[1..100]of integer;
dem,i,n,d,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
d:=0;
for i:=1 to n do
if a[i]=x then inc(d);
writeln('So lan xuat hien cua ',x,' trong day so la: ',d);
dem:=0;
for i:=1 to n do
if a[i]=x then
begin
inc(dem);
vt[dem]:=i;
end;
if dem>0 then
begin
write('So ',x,' xuat hien o cac vi tri lan luot la: ');
for i:=1 to dem do
write(vt[i]:4);
end;
readln;
end.
Bài 1:
uses crt;
var a:array[1..300]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (i mod 2=0) then t:=t+a[i];
writeln('Tong cac phan tu le o vi tri chan la: ',t);
readln;
end.
Bài 2:
uses crt;
var a,b:integer;
{---------------------chuong-trinh-con--------------------------}
function tong(var x,y:integer):integer;
begin
tong:=x+y;
end;
{-------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Nhap so thu nhat:'); readln(a);
write('Nhap so thu hai:'); readln(a);
writeln('Tong cua hai so la: ',tong(a,b));
readln;
end.
Câu 1:
uses crt;
var a,b,c,d,t:integer;
{------------------------chuong-trinh-con-tinh-tong-cua-hai-so-----------------}
function tong(var x,y:integer):integer;
begin
tong:=x+y;
end;
{------------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
write('Nhap so thu tu: '); readln(d);
t:=tong(a,b)+tong(c,d);
writeln('Tong cua bon so la: ',t);
readln;
end.
Câu 2:
const fi='dulieu.dat';
assign(f1,fi); reset(f1);
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac so chinh phuong la: ');
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i]:4);
readln;
end.