Дана строка символов, состоящая только из цифр. Определить, сколько раз среди них...

Question

Дана строка символов, состоящая только из цифр. Определить, сколько раз среди них встречается цифра 5.

Answer 1

Var s: string; i,k: integer;
Begin
k:=0;
Read(s);
for i:=1 to length(s) do
If s[i]='5' then k:=k+1;
Writeln (k);
End.