Viết ct nhập hai xau s1 s2 +Ghép xau s1 vào xau s2 + hiển thị nội dung và độ dài xau vừa nhập +đếm trong xau vừa ghép có bao nhiêu chứ cái

baohien3003

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

dtn464

program ct;

uses crt;

var x,s1,s2:string;

i,d:integer;

begin

clrscr;

write('nhap xau thu nhat:');readln(s1);

write('nhap xau thu hai:');readln(s2);

x:=s1+' '+s2;

writeln('xau vua ghep la:',x);

for i:=1 to length(x) do

if ('A'<=s1[i]) and (s1[i]<='Z') then inc(d);

writeln('co',d,'chu cai');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Ria123

uses crt;
var s,s1,s2:string; i,d:longint;
begin
clrscr;
write('Nhap xau 1: '); readln(s1);
write('Nhap xau 2: '); readln(s2);
s:=s1 + s2;
writeln('a) Ghep: ',s);
writeln('b) Noi dung xau ',s1,': ',s1);
writeln(' Noi dung xau ',s2,': ',s2);
writeln(' Do dai xau ',s1,': ',length(s1));
writeln(' Do dai xau ',s2,': ',length(s2));
for i:=1 to length(s) do
if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(d);
writeln('c) Ket qua: ',d);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Trên trái đất vùng có nhiều lượng mưa nhât là Cực Bắc, Cực Nam, Chí Tuyến, Xích Đạo

Giúp mình với ạ huhu mình cần làm gấp

Một cửa hàng trong hai ngày bán được 620 kg gạo. Hỏi trong 7 ngày cửa hàng bán được bao nhiêu ki-lô-gam gạo? (Biết rằng số gạo mỗi ngày bán được là như nhau).

Chứng minh sự bất hợp lí trong chế độ sở hữu ruộng đất ở Trung và Nam Mĩ? Cấm copy, chép mạng=bc

Lm giúp mik vs chiều mik thi ròi:(((

Tại sao nói dây TK tuỷ là dây pha ?

Cách nhân hai lũy thừa khác cơ số và khác sỗ mũ, cách so sánh hai lũy thừa khác cơ số và số mũ

Tại sao ta mở chiến dịch Biên giới thu đông 1950 ? Hãy trình bày diễn biến của chiến dịch ? Mọi người giúp em với ạ .Em cảm ơn nhiều ạ!

Vua Minh Mạng đã căn cứ vào đâu để chia nước ta thành 30 tỉnh mà một phủ Thừa Thiên nhanhhh lên ạ mình đang cần gấp

Các hình thức sinh sản, di chuyển ở động vật? _____ Giúp mik với ạ chiều mik phải nộp rồi:((

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến