Дано натуральное число. Определить сколько раз в нем встречаются цифры 0 и 5 (всего).

Вариант первый:

Var

A:longint;

n, p:integer;

B:byte;

Begin

Write ('Введите натуральное число: ') ;

ReadLn (A) ;

n:=0;

p:=0;

While A > 0 do

Begin

B:=A mod 10;

if B = 0 then n:=n+1;

if B = 5 then p:=p+1;

A:=A div 10;

End;

WriteLn ('Количество нулей в числе: ', n) ;

WriteLn ('Количество пятёрок в числе: ', p) ;

End.

Вариант второй:

Var

A:string;

n, p, i:integer;

Begin

Write ('Введите натуральное число: ') ; ReadLn (A) ;

n:=0;

p:=0;

For i: = 1 to Length (A) do

if A[i] = '0' then n:=n+1

else if A[i] = '5' then p:=p+1;

WriteLn ('Количество нулей в числе: ', n) ;

WriteLn ('Количество пятёрок в числе: ', p) ;

End.