1. 

   fcuked New Member

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

    

   fcuked, 1 мар 2010

   #1
2. 

   Urshul@ New Member

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

    

   Urshul@, 1 мар 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня