Những câu hỏi liên quan
Phùng Trọng Hiếu
Xem chi tiết
phạm ngọc hân
Xem chi tiết
Trần Ngọc Hảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2020 lúc 23:26

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.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:09

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.

Bình luận (0)
3i3 congaf
Xem chi tiết
Lê Thiên Hương
Xem chi tiết
Susu
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 23:21

#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;

}

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
24 tháng 5 2019 lúc 6:05

Đáp án B

Bình luận (0)
Quỳnh Anh
Xem chi tiết
Nguyên Khôi
11 tháng 11 2021 lúc 22:25

A

Bình luận (0)
Quỳnh Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:50

Chọn A

Bình luận (0)