Các câu hỏi tương tự
Môi gì to nhất ?
Quần gì to nhất ????????????????
Cái gì to nhất có 0 kg hỏi cái đó là gì ??????????????????
1.hoa j to nhất?
2. ca j to nhất?
3. quàn j dài nhất?
4. cam j to nhất?
5. cà j to nhất?
6. hãy tưởng tượng bạn đang ở trên 1 con thuyền , xung quanh là 1 đàn cá sấu , mà lúc này trên thuyền bị thủng 1 lỗ to, bạn sẽ làm j trong hoàn cảnh này?
7. trung tâm thủ đô gọi là j?
8.con j to nhất?
program xoa_ky_tu;uses crt;var x,y:string; i,j,dem,max: integer; a:char;BEGINclrscr;write(nhap xau x : );readln(x);y:x; for i:1 to length(x) dobeginj:i+1;repeatif x[i]x[j] then delete(x,j,1)elsej:j+1;until (jlength(x));end;writeln(xau sau khi loai bo ki tu giong nhau la :,x); max:0;a: ;for i:1 to length(x) dobegindem:0;for j:1 to length(y) doif x[i]y[j] thendem:dem+1;if demmax thenbeginmax:dem;a:x[i];end;end;writeln(ki tu ,a, xuat hien ,max, lan);readln;end.
Đọc tiếp
program xoa_ky_tu;
uses crt;
var x,y:string;
i,j,dem,max: integer;
a:char;
BEGIN
clrscr;
write('nhap xau x : ');
readln(x);
y:=x;
for i:=1 to length(x) do
begin
j:=i+1;
repeat
if x[i]=x[j] then delete(x,j,1)
else
j:=j+1;
until (j>length(x));
end;
writeln('xau sau khi loai bo ki tu giong nhau la :',x);
max:=0;
a:=' ';
for i:=1 to length(x) do
begin
dem:=0;
for j:=1 to length(y) do
if x[i]=y[j] then
dem:=dem+1;
if dem>max then
begin
max:=dem;
a:=x[i];
end;
end;
writeln('ki tu ',a,' xuat hien ',max,' lan');
readln;
end.
ai bt con j to nhất trong khủng long không ạ
cho các số 8;9;12;27;73;7;9Tìm tổng của số lớn nhất và bé nhất trong các số đã cho
Tìm tổng của của số có 3 chữ số nhỏ nhất và số có 3 chữ số nhỏ nhất khác nhau.
Bài 10 : (1điểm) : Tìm hiệu của số tròn chục lớn nhất và số chẵn lớn nhất có một chữ số ?