0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
428
270
program cau1;
var
begin
repeat
readln(n);
until (100<=n) and (n<=999);
writeln(n);
str(n,so); S:=0; {Mình chuyển số sang xâu nhé}
for i:=1 to length(so) do
begin
val(so[i],x); T:=T+x;
end;
writeln(T); val(so,n); {Mình chuyển lại xâu thành số}
m:=0;
while n<>0 do
begin
m:=m*10+n mod 10; n:=n div 10;
end;
writeln(m);
if m=n then write(n,' LA SO DOI XUNG') else write(n,' KHONG LA SO DOI XUNG');
readln;
end.
Câu 2:
program cau2;
var
a,b,c,T,i,j,tam:integer;
A:array[1..100] of integer;
begin
readln(a,b,c);
T:=a+b+c;
writeln(T);
writeln(T/3:5:2);
if (a>b) and (a>c) then writeln(a) else
if (b>a) and (b>c) then writeln(b) else
if (c>a) and (c>b) then writeln(c);
A[1]:=a; A[2]:=b; A[3]:=c; {Mình đưa 3 số này vào mảng}
for i:=1 to 2 do
for j:=i+1 to 3 do if A[i]>A[j] then
begin
tam:=A[i]; A[i]:=A[j]; A[j]:=tam;
end;
for i:=1 to 3 do write(A[i],' ');
readln;
end.
Bạn chạy chương trình kiểm tra xem sai ở đâu không nha, chắc có sai ở 1 số chỗ, bạn khắc phục giúp mình nhé. Đôi khi cũng có sai sót hiz
Chúc bạn học tốt!
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin