дано натуральное 5 значное число n.Сколько раз в данном числе встречаются цифры 4 или 8?

допили под свое делфи, от этого алгоритм не меняется, можешь и свой написать
const n=5;
var a,x:integer;
k,s,j,m:integer;
b:array[1..n] of integer;
begin
writeln('введите',n, ' значное');
readln( a ); x:=a;
s:=0;k:=0;
while ( x <> 0 ) do begin
// s := s + (x mod 10);
inc(k);
b[k]:= (x mod 10);
x := x div 10;
end;

for j:=0 to 9 do begin m:=0;
for k:=1 to n do begin
if b[k]=j then inc(m);
end;
if m>0 then
begin if (j=4) or (j=8) then
writeln('цифра ',j,' встречается ',m, ' раз' );
end; end;
end.

Минимум 0. Максимум 5…

Сто восемьдесят два

for( ; n > 0; n /= 10 ) c[ n % 10 ]++;
printf( "4 = %d\n8 = %d\n", c[ 4 ], c[ 8 ] );

У вас седня опять зачот?

Всего существует 90000 пятизначных натуральных чисел... а теперь сиди и считай сколько

Option Explicit
Sub Counter()
Dim x
Do
Do
Do
x = InputBox("Введите 5-значное натуральное число", "Ввод данных")
Loop Until IsNumeric(x)
x = CLng(x)
If x < 0 Then Exit Sub
Loop Until Len(x) = 5
Dim out, i, k
out = "В числе" & x & vbCrLf
For i = 0 To 9
k = Compare(x, 1, i)
If k > 0 Then out = out & "количество " & i & " = " & k & vbCrLf
Next
MsgBox out
Loop While True
End Sub

Function Compare(num, pos, find)
Dim ind
ind = InStr(pos, num, find)
If ind > 0 Then
Compare = Compare + 1
If ind < 5 Then Compare = Compare + Compare(num, ind + 1, find)
Else
Compare = CInt(Compare)
End If
End Function