Viết chương trình nhập vào 10 số nguyên và 2 xâu kí tự. Tính và ghi các kết quả sau ra tệp D:\ketqua.txt
a. Các số nguyên có giá trị lớn hơn 20 và nhỏ hơn 50.
b. Nhập vào 1 số nguyên A, cho biết có bao nhiêu số lớn hơn A.
c. Cho biết xâu nào dài hơn và dài hơn bao nhiêu kí tự.
d. Nếu xâu thứ 2 dài hơn 8 kí tự thì xóa 2 kí tự cuối cùng của xâu đó.
Trả lời (1)
-
uses crt;
var st1,st2:string;
b:array[1..10]of integer;
i,a,dem,d1,d2:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap so thu ',i,'='); readln(b[i]);
end;
write('Nhap xau thu nhat:'); readln(st1);
write('Nhap xau thu hai:'); readln(st2);
writeln('Cac so nguyen co gia tri lon hon 20 va nho hon 50 la: ');
for i:=1 to 10 do
if (b[i]>20) and (b[i]<50) then write(b[i]:4);
writeln;
write('Nhap a='); readln(a);
dem:=0;
for i:=1 to 10 do
if b[i]>a then inc(dem);
writeln('So phan tu lon hon ',a,' trong day la: ',dem);
d1:=length(st1);
d2:=length(st2);
if d1>d2 then writeln('Xau ',st1,' dai hon xau ',st2,' va dai hon ',d1-d2,' ki tu');
if d1=d2 then writeln('Hai xau co do dai bang nhau');
if d1<d2 then writeln('Xau ',st2,' dai hon xau ',st1,' va dai hon ',d2-d1,' ki tu');
if d2>8 then
begin
if (st2[d2-1] in ['0'..'9']) and (st2[d2] in ['0'..'9']) then
begin
st2[d2-1]:='a';
st2[d2]:='b';
delete(st2,d2-1,2);
end
else delete(st2,d2-1,2);
writeln(st2);
end
else writeln('Xau ',st2,' khong dai hon 8 ki tu');
readln;
end.
bởi Lê Nguyễn Hạ Anh 22/11/2021Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
Cho mảng A gồm 150 phần tử:
Viết chương trình in mảng vừa nhập ra màn hình
in các số lẻ của mảng ra màn hình
đếm số lượng số nhỏ hơn 0 có trong mảng
20/11/2022 | 0 Trả lời
-
A. Nhất định phải có phần khai báo.
B. Không cần có phần khai báo.
C. Chỉ khai báo khi dùng hàm toán học.
D. Chỉ khai báo khi chương trình có sử dụng đến thư viện chương trình con nào đó.
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. PI:=3.14
B. PI:3.14
C. PI=3.14
D. PI 3.14
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt, kết thúc bằng dấu “;”.
B. Python quy định các câu lệnh nên được viết trên một dòng.
C. Python quy định các câu lệnh nên được viết trên một dòng, kết thúc bằng dấu “;”
D. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt.
20/11/2022 | 1 Trả lời
-
A. Tất cả các biến dùng trong chương trình đều phải đặt tên cho chương trình dịch biết để lưu trữ và xử lí.
B. Tất cả các biến dùng trong chương trình không cần phải đặt tên.
C. Python có quy định chặt chẽ phải có phần khai báo và phần thân chương trình như Pascal.
D. Python yêu cầu sử dụng dấu “;” khi kết thúc câu lệnh.
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. x=5
B. x =0.2
C. x:5
D. x==5
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
a=10
print(a)
Biến a thuộc dữ liệu kiểu dữ liệu nào?
21/11/2022 | 1 Trả lời
-
b=3.5
print(b)
20/11/2022 | 1 Trả lời