K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
ML
29 tháng 4 2020
Cho xâu S1='abcdef'
S2='mne'
a) Delete (S1,2,3)
---> Kết quả: S1='aef'
b) Delete (S2,1,2)
---> Kết quả: S2='e'
c) Insert (S1,S2,1)
---> Kết quả S1='abcdef' ; S2='abcdefmne';
d) Insert (S2,S1,2)
---> Kết quả : S1='amnebcdef' ; S2='mne'
e) Copy (S1,2,4)
---> Kết quả: 'bcde'
f) So sánh hai xâu sau theo mã ASCII
S3='la co' , S4=' la do'
(hình như bạn viết thừa dấu cách ở kí tự đầu tiên của s4 đúng không, Nếu đúng thì kết quả là S3<S4 còn không phải thì KQ là S3 > S4)
g) 'toan hoc' > ' tin hoc'
l) Sửa đề : pos ('xinh', ' cai_xac_xinh_xinh')
---> Kết quả : 9
h) upcase (' t ') ---> Kết quả: T
y) length ('mnefg')=?
---> Kết quả: 5
18 tháng 2 2021
Câu 1:
uses crt;
var b:array[1..100]of real;
i,n:integer;
min:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
writeln('Gia tri nho nhat la: ',min:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day giam dan la: ');
for i:=1 to n do write(a[i]:4);
readln;
end.
27 tháng 6 2020
uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
ML
11 tháng 6 2020
Program HOC24;
const fi='UCLN.inp';
fo='UCLN.ou';
var a,b,c,d,e,f: integer;
t: longint;
function ucln(x,y: integer): integer;
var tg: integer;
begin
while y<>0 do
begin
tg:=x mod y;
x:=y;
y:=tg;
end;
ucln:=x;
end;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,a,b);
readln(f,c,d);
readln(f,e,f);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,ucln(a,b)+ucln(c,d)+ucln(e,f));
close(f);
end;
begin
ip;
out;
end.
mè
Cái này nhiều kiểu có thể viết sang dạng biểu thức của toán học, VD : \(\frac{a}{\frac{b}{\frac{c}{\frac{d}{\frac{e}{f}}}}}\) ; \(\frac{\frac{\frac{a}{b}}{\frac{c}{d}}}{\frac{e}{f}}\); \(\frac{\frac{a}{b}}{\frac{\frac{c}{d}}{\frac{e}{f}}}\);......