Question

CHO MỘT SỐ NGUYÊN DƯƠNG N CÓ K CHU SO (0<K<20);

HÃY ĐẾM XEM SỐ N CÓ BAO NHIÊU CHỮ SỐ CHẴN BAO NHIÊU CHỮ SỐ LẺ

 

Answer 1

program hoc24;

n: string[20];

k,i,t,d,d1: byte;

code: integer;

begin

write('Nhap so K: '); readln(k);

write('Nhap so nguyen N: '); readln(n);

d:=0; d1:=0;

 for i:=1 to k do

begin

val(n[i],t,code);

if t mod 2=0 then d:=d+1 else d1:=d1+1;

end;

writeln('Co ',d,' chu so chan');

write('Co ',d1,' chu so le');

readln

end.