Ta gọi các chữ số 0,4,6,9 có 1 lỗ hổng
8 có 2 lỗ hổng
1,2,3,5,7 có 0 lỗ hổng
viết chương trình nhập vào 1 số tự nhiên n có không quá 10 chữ số, in ra màn hình tổng số lỗ hổng của số đó
help me !!!!!!!!!!!!!
program lohong;
uses crt;
var s:string[10];
a,i:integer;
begin
readln(s);
a:=0;
for i:=1 to 10 do
begin
if s[i]=’0′ then a:=a+1;
if s[i]=’4′ then a:=a+1;
if s[i]=’6′ then a:=a+1;
if s[i]=’9′ then a:=a+1;
if s[i]=’8′ then a:=a+2;
end;
writeln(a);
readln;
end
xin hay nhất cho nhóm
program lohong;
uses crt;
var s:string[10];
a,i:integer;
begin
readln(s);
a:=0;
for i:=1 to 10 do
begin
if s[i]=’0′ then
a:=a+1;
if s[i]=’4′ then
a:=a+1;
if s[i]=’6′ then
a:=a+1;
if s[i]=’9′ then
a:=a+1;
if s[i]=’8′ then
a:=a+2;
end;
writeln(a);
readln;
end.