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.
Yêu cầu: Viết chương trình đếm xem số n (có 3 chữ số) có bao nhiêu lỗ.
như này ạ.
uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2=0 then writeln('1')
else writeln('0');
str(n,st);
d:=length(st);
writeln('Cac chu so cua ',n,' la: ');
for i:=1 to d do
write(st[i]:4);
writeln;
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('Tong cac chu so cua ',n,' la: ',t);
readln;
end.
Câu 2:
Lọc dữ liệu là chọn và chỉ hiển thị các hang thỏa mãn các tiêu chuẩn nhất định nào đó.
VD như là lọc hàng có giá trị lớn nhất, nhỏ nhất
const fi='calc.inp';
fo='calc.out';
var f1,f2:text;
max,a,b,c,d1,t1,i,x,y,d2,t2,d,e,d3,t3,f,g:integer;
st1,st2,st3:string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
str(a,st1);
str(b,st2);
str(c,st3);
d1:=length(st1);
t1:=1;
for i:=1 to d1 do
begin
val(st1[i],x,y);
t1:=t1*x;
end;
d2:=length(st2);
t2:=1;
for i:=1 to d2 do
begin
val(st2[i],d,e);
t2:=t2*d;
end;
d3:=length(st3);
t3:=1;
for i:=1 to d3 do
begin
val(st3[i],f,g);
t3:=t3*f;
end;
max:=t1;
if max<t2 then max:=t2;
if max<t3 then max:=t3;
writeln(f2,max);
close(f1);
close(f2);
end.
a/ =SUM(A1:A5)=29
=SUM(A1,A2,A3,A4,A5)=29
b/ =MAX(A1:A5)=9
=MAX(A1,A2,A3,A4,A5)=9
