Câu 1: Viết chương trình nhập xâu bất kì. Đưa ra màn hình độ dài xâu. Câu 2: Viết chương trình nhập xâu S bất kì đưa ra màn hình xâu in hoa. Câu 3: Viết chương trình nhập 2 xâu S1 và S2 đưa ra màn hình xâu dài hơn. Câu 4: viết chương trình nhập 2 xâu st1 và st2. Kiểm tra ký tự 2

hag21

2 năm trước

Câu 1: Viết chương trình nhập xâu bất kì. Đưa ra màn hình độ dài xâu. Câu 2: Viết chương trình nhập xâu S bất kì đưa ra màn hình xâu in hoa. Câu 3: Viết chương trình nhập 2 xâu S1 và S2 đưa ra màn hình xâu dài hơn. Câu 4: viết chương trình nhập 2 xâu st1 và st2. Kiểm tra ký tự 2 của xâu st1 có trùng với ký tự 4 của xâu S2 không? Giúp e với mn :(((((

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

LALaland

Câu 3:

program tin_hoc;

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau:');readln(s);

writeln(s);

writeln(length(s));

readln;

end.

Bài 4:

program Tin_hoc;

uses crt;

var i,d:integer;

s:string;

begin

clrscr;

write('Nhap xau:');readln(s);n:=0;

for i:= 1 to length(s) do if ord(s[i]) = 32 then n:= 1;

if n= 1 then write('Co dau cach') else write('Khong co dau cach');

readln;

end.

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

nguyentruongtho508

Câu 1 :

Program FNG;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
Writeln('Do dai: ',length(St));
For i:=1 to length(St) do
If St[i]=#32 then Delete(St,i,1);
Write('St = ',St);
Readln
End.

Câu 2 :

uses crt;
var a,b:string;
begin
clrscr;
write('Nhap xau ki tu thu nhat: ');readln(a);
write('Nhap xau ki tu thu hai: ');readln(b);
if length(a)>length(b) then writeln(b) else if length(b)>length(a) then writeln(a) else begin writeln(a); writeln(b);end;
readln
end.

Câu 3:

program tin_hoc;

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau:');readln(s);

writeln(s);

writeln(length(s));

readln;

end.

Bài 4:

program Tin_hoc;

uses crt;

var i,d:integer;

s:string;

begin

clrscr;

write('Nhap xau:');readln(s);n:=0;

for i:= 1 to length(s) do if ord(s[i]) = 32 then n:= 1;

if n= 1 then write('Co dau cach') else write('Khong co dau cach');

readln;

end.

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

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

hn thi đ cđiểm cao zẽ cho mik chibi cute nhoa OwO OvO

mời các bác vẽ =))) cứ tự nhiên và thoải mái

Giúp mình với Hai lớp 8A,8B của một trường THCS có 90 HS. trong đợt quyên góp sách ủng hộ học sinh vùng lũ lụt, mỗi bạn lớp 8A ủng hộ 3 quyển, mỗi bạn lớp 8B ủng hộ 2 quyển, Tính số học sinh của mỗi lớp biết rằng cả 2 lớp ủng hộ được 222 quyển sách

Viết bài văn trình bày suy nghĩ của em về lời khuyên dù bạn là ai thì bạn cũng luôn có sẵn trong mình những giá trị nhất định nên phải tự tin vào bản thân

I / not think/men/ better/leaders/women/.

Nguyễn Văn Siêu qua đời ở chỗ nào và lý do?

Dựa vào nội dung của khổ thơ cuối, em hãy viết 1 đoạn văn khỏang 12 câu trình bày suy nghĩ của em về tình cảm đẹp của người lính lái xe. Trong đó có sử dụng 1 câu ghép và 1 phép thế

Cho biểu thức A=(x/x mũ 2-4+2/2-x+1/x+2):(x-2+10-x mũ 2/x+2) a)rút gọn biểu thức A b)tính giá trị của biểu thức A tại x,biết |x|=1/2 c)tìm giá trị của x để A<0. ai biết làm chỉ mình với

Cho 1 lượng vừa đủ muối M(muối của Bạc) vào FeCl2 thu được dung dịch xanh đỏ nâu có lẫn kết tủa trắng. Cho tiếp lượng dư Ba[Al(OH)4] thu được hỗn hợp kết tủa trắng đen lẫn xanh rêu nâu đỏ, để trong không khí một thời gian hỗn hợp đồng nhất thành màu đỏ nâu nhạt, dẫn khí NH3 vào dung dịch thấy kết tủa tan 1 phần, lọc kết tủa thu được dung dịch X, nung kết tủa đến khối lượng không đổi thu được hỗn hợp chất rắn Z có chứa Bari. Nhỏ vài giọt nước ép chuối vào dung dịch X thấy có kết tủa bạc tráng quanh thành ống nghiệm. Hỏi muối bạc M là gì?

em cần làm gì để tránh nguy cơ có thai ở lứa tuổi vị thành niên

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