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.
var n,T,m,i : byte;
s:string;
code:integer;
begin
write('n = '); readln(n); str(n,S);
write(n, ' có ',length(s),' chữ số'); {Hết câu a}
for i:=1 to length(S) do begin
val(S[i],m,code);
if m mod 2 = 0 then T:=T+m;
end;
write('Tổng các chữ số chẵn của ',n,' bằng : S = ',S); {Hết câu b}
readln
end.
#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;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i,x;
//chuongtrinhcon
bool ktnt(long long x)
{
if (x<2) return false;
for (int i=2; i*i<=x; i++)
if (x%i==0) return(false);
return true;
}
//chuongtrinhchinh
int main()
{
freopen("dl.dat","r",stdin);
freopen("kq.dat","w",stdout);
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (ktnt(x)) dem++;
}
cout<<dem;
return 0;
}
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Write('Nhap n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
max:=a[2] - a[1];
For i:=3 to n do
Begin
If a[i] - a[i-1] > max then max:=a[i]-a[i-1];
End;
Write('Khoang cach lon nhat la ',max);
Readln;
End.
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.