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.
Một số học giả còn dự đoán về Cách mạng công nghiệp lần thứ năm (5.0) trong tương lai gần, nhấn mạnh sự kết hợp giữa công nghệ tiên tiến với yếu tố nhân văn, bền vững và lấy con người làm trung tâm.
Program So_nguyen;
uses crt;
Var a,b,t:integer;
Begin
clrscr;
Writeln(' Nhap 2 so nguyen a va b:');
if a>b then t:= a-b;
if a<b then t:=b-a;
if a=b then t:=0;
Writeln(' Ket qua la',t);
Readln;
End.
sẽ gầy là phim người lớn! không dành cho người "trong sáng"
uses crt;
var s:string;
i,j,dem:integer;
t:boolean;
begin
clrscr;
write('Nhap xau:');readln(s);
dem:=0; for i:=1 to length(s) do
begin
t:=false;
for j:=1 to i-1 do
if((s[j])=(s[i])) then t:=true;
if not(t) then inc(dem);
end;
write('Co ',dem,' ki tu khac nhau.');
readln;
end.

Do em thử chạy trước ý. nên chụp như thế này cho nhanh, cop ko được làm biếng chép quá ![]()
n = int(input("Nhập vào một số nguyên dương: "))
if n < 0:
print(n, "là số âm")
elif n > 0:
print(n, "là số dương")
else:
print(n, "là số 0")
o
rảnh quá hả
Hi
?