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.
uses crt;
var d,x,kt,j:integer;
st:string;
a:array[1..100]of longint;
i:longint;
begin
clrscr;
for i:=10000 to 99999 do
begin
str(i,st);
d:=length(st);
for j:=1 to d do
val(st[j],a[j],x);
kt:=0;
for j:=1 to d-1 do
if a[j]>=a[j+1] then kt:=1;
if kt=0 then write(i:6);
end;
readln;
end.
Viruss là mối nguy hại cho thông tin máy tính là vì
+ tiêu tốn tài nguyên hệ thống
+ phá huỷ dữ liệu
+ đánh cáp dữ liệu
+ phá huỷ hệ thống
+ gây khó chịu cho người dùng : ẩn file/ folder, thay đổi cách thức hđ của hệ thống.............
1. Avast Free Antivirus
2. AVG Anti-virus Free Edition
3. Avira Antivirus Edition
4. Norton AntiVirus Plus
5. McAfee Total Protection
6. Kaspersky Anti-Virus
7. Bitdefender Antivirus Plus
8. Trend Micro Maximum Security
9. ESET NOD32 Antivirus
10. Malwarebytes Anti-Malware
okay i know and let's fight covid together