Tin học xâu

[Hồ Thị Diệu Thúy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

hãy viết ct nhập vào 1 xâu có chứa kí tự số ,hãy đếm xem có bn kí tự là số ở trong xâu.

 

[tôi là ai?]

hãy viết ct nhập vào 1 xâu có chứa kí tự số ,hãy đếm xem có bn kí tự là số ở trong xâu.

ses crt;
var hs:array[1..100]of string;
i,j,n:integer;
{*****************}
procedure sx(var a,b:string);
var tam:string;
begin
tam:=a;
a:=b;
b:=tam;
end;
{****************}
begin
clrscr;
write('nhap so cac hoc sinh');readln(n);
for i:=1 to n do
begin
write('ten hoc sinh ',i,':');readln(hs);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if length(hs) > length(hs[j]) then sx(hs,hs[j]);
writeln('sx theo do dai ten la');
for i:=1 to n do
write(hs:5);
readln;
end.
p/s goole

 

[Hồ Thị Diệu Thúy]

ses crt;
var hs:array[1..100]of string;
i,j,n:integer;
{*****************}
procedure sx(var a,b:string);
var tam:string;
begin
tam:=a;
a:=b;
b:=tam;
end;
{****************}
begin
clrscr;
write('nhap so cac hoc sinh');readln(n);
for i:=1 to n do
begin
write('ten hoc sinh ',i,':');readln(hs);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if length(hs) > length(hs[j]) then sx(hs,hs[j]);
writeln('sx theo do dai ten la');
for i:=1 to n do
write(hs:5);
readln;
end.
p/s goole

sao nhìn lung tung vậy nhở?

 

[tôi là ai?]

sao nhìn lung tung vậy nhở?

hk làm gì
ko biets làm thì chép đi
tui cx ko hiểu

 

[ka1412]

ses crt;
var hs:array[1..100]of string;
i,j,n:integer;
{*****************}
procedure sx(var a,b:string);
var tam:string;
begin
tam:=a;
a:=b;
b:=tam;
end;
{****************}
begin
clrscr;
write('nhap so cac hoc sinh');readln(n);
for i:=1 to n do
begin
write('ten hoc sinh ',i,':');readln(hs);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if length(hs) > length(hs[j]) then sx(hs,hs[j]);
writeln('sx theo do dai ten la');
for i:=1 to n do
write(hs:5);
readln;
end.
p/s goole

Đây đâu phải là đếm số kí tự là chữ số trong câu hả bạn

 

[Hồ Thị Diệu Thúy]

hk làm gì
ko biets làm thì chép đi
tui cx ko hiểu

trời ơi, sai mà bắt chép làm j

 

[tôi là ai?]

trời ơi, sai mà bắt chép làm j

có cái chép là may rồi
tin học là trừu tượng
tớ nghĩ bài trên đúng á
p/s anh goole ns vậy

 

[Hồ Thị Diệu Thúy]

có cái chép là may rồi
tin học là trừu tượng
tớ nghĩ bài trên đúng á
p/s anh goole ns vậy

thầy lớp tớ cx bảo sai