K
Khách

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.

30 tháng 12 2020

uses crt;

var n,d,dem,i,x,y,t:integer;

st:string;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (1000<=n) and (n<=9999);

if n mod 2=0 then 

  begin

     str(n,st);

d:=length(st);

dem:=0;

for i:=1 to d do

  begin

val(st[i],x,y);

if x=0 then inc(em);

end; 

writeln('So chu so 0 co trong so ',n,' la: ',dem);

end

else begin

str(n,st);

t:=0;

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+sqr(x);

end;

writeln('Tong binh phuong cac chu so trong so ',n,' la: ',t);

end;

readln;

end.

4 tháng 4 2023

uses crt;

var n,d,dem,i,x,y,t:integer;

st:string;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (1000<=n) and (n<=9999);

if n mod 2=0 then 

  begin

     str(n,st);

d:=length(st);

dem:=0;

for i:=1 to d do

  begin

val(st[i],x,y);

if x=0 then inc(em);

end; 

writeln('So chu so 0 co trong so ',n,' la: ',dem);

end

else begin

str(n,st);

t:=0;

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+sqr(x);

end;

writeln('Tong binh phuong cac chu so trong so ',n,' la: ',t);

end;

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,x;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

24 tháng 5 2019

Đáp án B

11 tháng 11 2021

A

11 tháng 11 2021

Chọn A