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.
Program HOC24;
var i,n: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
n:=length(s)/2;
write('Xau nua dau: ');
for i:=1 to n do write(s[i]);
writeln;
write('Xau nua cuoi: ');
for i:=n to length(s) do write(s[i]);
readln
end.
uses crt;
var st:string;
i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln('Nua dau xau la: ');
for i:=1 to (length(st) div 2) do
write(st[i]);
writeln;
writeln('Nua cuoi xau la: ');
for i:=((length(st) div 2)+1) to length(st) do
write(st[i]);
readln;
end.
Program HOC24;
var s,s1: string;
i: byte;
begin
write('Nhap xau: '); readln(s);
for i:=length(s) downto 1 do s1:=s1+s[i];
if s=s1 then write('Xau doi xung') else write('Xau khong doi xung');
readln
end.
*Cách khác:
uses crt;
var st:string;
i,d,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln('Xau doi xung')
else writeln('Xau khong doi xung');
readln;
end.
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Program HOC24;
var a: array[1..15] of integer;
tg,i,n,j: integer;
begin
n:=15;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to 7 do
for j:=i+1 to 8 do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=9 to 14 do
for j:=i+1 to 15 do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do write(a[i],' ');
readln
end.
Program HOC24;
var i: byte;
st,s: string;
begin
write('Nhap xau: '); readln(s);
while s[length(s)]=#32 do delete(s,length(s),1);
while s[1]=#32 do delete(s,1,1);
while pos(#32,s)<>0 do delete(s,pos(#32,s),1);
for i:=length(s) downto 1 do st:=st+s[i];
write('Xau nguoc lai sau khi da bo het dau cach: ',st);
readln
end.
*Cách khác:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
for i:=length(st) downto 1 do
write(st[i]);
readln;
end.
Program HOC24;
var m,n,i: integer;
t1,t2: longint;
begin
write('Nhap m;n: '); readln(m,n);
t1:=1; t2:=1;
for i:=1 to n do t1:=t1*i;
for i:=m to n do t2:=t2*i;
writeln('T1=',t1);
write('T2=',t2);
readln
end.
Program HOC24;
const fi='DULIEU.DAT';
fo='KETQUA.DAT';
var a,x,n: integer;
s: longint;
function luythua(a,b: integer): longint;
var j,t: longint;
begin
t:=1;
for j:=1 to b do t:=t*a;
luythua:=t;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,x,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=1;
for i:=1 to n do
s:=s+luythua(x,i)*(a+i);
write(f,s);
close(f);
end;
begin
ip;
out;
end.
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
d: integer;
begin
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 3=0 then d:=d+1;
end;
write('Co ',d,' phan tu la boi cua 3');
readln
end.
uses crt;
var i,n,dem:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln(dem);
readln;
end.