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 n,i,x,d,dem:longint;
s:real;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
str(s:0:0,st);
d:=length(st);
dem:=0;
for i:=d downto 1 do
if st[i]='0' then inc(dem);
writeln(dem);
readln;
end.
program kiem_tra_so_phat_trien;
uses crt;
var n, i,j: integer;
a:array[1..100] of integer;
kt: boolean;
begin
clrscr;
writeln('Nhap so phan tu cua mang:');
readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',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 kt:=false;
if kt=true then writeln('Day la so phat trien')
else writeln('Day khong phai la so phat trien');
readln;
end.
TK:
```python
def is_decreasing_number(n):
n_str = str(n)
if len(n_str) < 2:
return False
for i in range(len(n_str) - 1):
if int(n_str[i]) >= int(n_str[i+1]):
return False
return True
Sử dụng hàm để kiểm tra số n
n = int(input("Nhập số n: "))
if is_decreasing_number(n):
print(f"{n} là số phát triển")
else:
print(f"{n} không là số phát triển")
```
var n,i,k,d: integer;
a:array[1..52] of integer;
begin
write('Nhap so N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
write('Nhap so k: '); readln(k);
d:=0;
for i:=1 to n do
if a[i] mod k = 0 then d:=d+1;
writeln('Co ',d,' so chia het cho ',k,' trong day');
if d mod 2 = 0 then writeln('Chan') else writeln('Le');
end.
uses crt;
var a:array[1..52]of integer;
i,n,k,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=52);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i] mod k=0 then inc(dem);
writeln('Trong day co ',dem,' so chia het cho ',k);
if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')
else writeln('So luong so chia het cho ',k,' la so le');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i;
bool kt;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if ((kt==true) and (n>1)) cout<<"YES";
else cout<<"NO";
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,k,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
dem:=0;
for i:=1 to n do
if a[i]>k then inc(dem);
write(dem);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,a[1000],m,i;
bool kt;
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cin>>m;
kt=false;
for (i=1; i<=n; i++)
if (a[i]==m) kt=true;
if (kt==true) cout<<"Co";
else cout<<"Khong";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long m,n,k;
int main()
{
cin>>m>>n>>k;
if ((m*n*k>=10) and ((m*n*k)%10==0)) cout<<"Phai";
else cout<<"Khong phai";
return 0;
}