Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lẻ có trong dãy. giải giúp em với ạ
Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lẻ có trong dãy. giải giúp em với ạ
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
uses crt;
var i,n: integer;
a: array[1..10000] of integer;
begin
writeln('nhap so nguyen n: '); readln(n);
for i:=1 to n do
begin
writeln('A[',i,']'); readln(a[i]);
if i mod 2 <>0 then writeln(i);
end;
readln;
end.
viet chuong trinh tim Min cua 3 so a,b,c.
uses crt;
var a,b,c,min:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln('So nho nhat la: ',min);
readln;
end.
lập chương trình đệ quy giải bài toán:
Có ba cọc trên vòng tròn, được đánh số theo thứ tự chiều kim đồng hồ là 1, 2, 3.Có N đĩa kích thước từ lớn đến nhỏ, được sắp xếp chồng đĩa nhỏ nằm trên đĩa lớn tại cọc 1.
Yêu cầu: Cần chuyển N đĩa từ cọc 1 sang cọc 3 theo các quy tắc:
- Mỗi bước chỉ chuyển được một đĩa.
- Trong quá trình chuyển đĩa, chỉ cho phép đĩa nhỏ đặt lên trên đĩa lớn.
Dữ liệu Một số nguyên duy nhất N (0<N <=15)
Kết quả gồm nhiều dòng, trong đó mỗi dòng mô tả một bước chuyển đĩa gồm bắt đầu là số liệu cọc xuất phát, tiếp theo là số hiệu cọc chuyển đến, ghi cách nhau ít nhất một dấu trắng.
Ví dụ
input
2
output
1 21 32 3
lưu ý:code bài này chỉ dành cho HSG và có thể dùng bất cứ NNLT nào tuỳ thích. UwU
bạn ơi có thể cho mình coi thêm một text mẩu được ko vậy
mình không biết text mình đúng ko nhưng mình nghĩ vậy nè
input
3
output
1 22 33 3 21 3
không biết đúng ko tại vì mình dựa trên cái text của bạn đưa ra nó quá it với lại cái đề nó có nhiều chổ thiếu.
input
2
output
1 21 32 3 tại sao không phải là 31 mà là 3 vậy
pascal Tính tiền đi taxi từ số km đã đi được nhập vào, biết:- 1 km đầu giá 5000đ.- Từ km thứ 2 – thứ 5: 4500 đ/km- Từ km thứ 6 trở đi: 3500 đ/km, đi hơn 120 km sẽ được giảm 10% trên tổng sốtiền theo quy định. (làm tròn 2 chữ số thập phân)
uses crt;
var i,sokm:integer;
tong:real;
begin
write('nhap so km: ');readln(sokm);
for i:=1 to n do
begin
if i=1 then tong:=tong+5000;
else if tong>=2 and tong<=5 then tong:=tong+4500;
else tong:=tong+3500;
end;
if sokm>120 then tong=(tong/10)*9;
writeln('so tien la ',tong,' dong');
readln;
end.
Var km:longint;
st:real;
Begin
write('Nhap vao so km da di ');readln(km);
if km = 1 then write('So tien la 5000');
if (km > 1) and (km<= 5) then write('So tien la ',5000+(km-1)*4500);
if (km >= 6) and (km <= 20) then write('So tien la ',5000 + 4*4500+(km-5)*3500)
if km>120 then
begin
st:=5000+4*4500+(km-5)*3500-0.1*(5000+4*4500+(km-5)*3500);
write(st:15:2);
end;
readln;
end.
Lời giải :
B1: nhập 2 biến x,y
B2: Nếu x>y tráo đổi gía trị của x và y, chuyển đến bước 3 . Nếu y > x thì 2 số đã theo thứ tự có giá trị không giảm , chuyển đến bước 3
B3: In ra kết qủa x, y và kết thúc thuật toán
Mua gạo Tý được mẹ giao cho nhiệm vụ đi mua gạo. Cửa hàng có 2 loại bao gạo: 5 kg và 3 kg. Tý cần mua đủ số gạo mà mẹ yêu cầu là N kg.
Ví dụ, N = 18 thì có thể mua 3 bao 5 kg và 1 bao 3kg hoặc 6 bao 3 kg. Hãy giúp Tý tìm cách mua đủ N kg gạo với số lượng bao gạo ít nhất có thể, nếu không thể thực hiện được thì in ra số -1.
Input Format
Gồm một dòng duy nhất chứa số N là số gạo Tý cần mua
Output Constraints
0 < N ≤ 5000
Output Format
Bài 1: Cho ba điểm A, B, C nằm trên hệ trục tọa độ Đề Các, có tọa độ lần lượt là (XA, YA), (XB, YB), (XC, YC).
Tìm khoảng cách lớn nhất d giữa hai điểm trong 3 điểm trên
Yêu cầu: Tính giá trị của d.
Dữ liệu vào: Từ bàn phím gồm 3 dòng, mỗi dòng chứa hai số nguyên:
- Dòng 1 gồm hai số nguyên XA, YA;
- Dòng 2 gồm hai số nguyên XB, YB;
- Dòng 3 gồm hai số nguyên XC, YC.
Dữ liệu ra: Ghi ra màn hình giá trị của d với định dạng d:0:2
Ví dụ:
INPUT |
OUTPUT |
0 0 0 1 0 3 |
3.00 |
uses crt;
var xa,ya,xb,yb,xc,yc:integer;
ab,ac,bc,d:real;
begin
clrscr;
write('nhap toa do diem A:'); readln(xa,ya);
write('nhap toa do diem B:'); readln(xb,yb);
write('nhap toa do diem C:'); readln(xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
d:=ab;
if d<ac then d:=ac;
if d<bc then d:=bc;
writeln(d:0:2);
readln;
end.
vct nhap vao so nguyen N va day a1,a2...aN. kiem tra xem day A co bao nhieu so nguyen duong
Var
i,d,n :integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>0 then d:=d+1;
write('mang A co :',d,'so nguyen duong');
readln
end.
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu co trong day:');readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);
end;
for i:=1 to n do begin
if (a[i] mod 2=0) and (a[i] mod 3=0)
then writeln('Phan tu chia het cho 2 va 3 la:',a[i])
end;
readln
end.
Chương trình trên đúng k ạ
Chương trình chạy được , đúng nha bạn
Nhập số nguyên dương n, tạo mảng a gồm n phần tử có giá trị tăng dần lần lượt a[1]=1, a[2]=2,…,a[n]=n.
Nhập giá trị cần xóa là x, xóa phần tử có giá trị x, xuất mảng sau khi xóa Nhập giá trị cần thêm là y, vị trí cần thêm là k, thêm y vào mảng tại vị trí k và xuất mảng sau khi thêm.