Главная » Статьи » Задачи по программированию
Посчитать количество четных цифр в числе [Pascal]
Очень простая задачка. Дано натуральное число N необходимо посчитать количество четных цифр в числе. 


Var
   S:String;
   N,I:Integer;

Begin
     Write('Enter S:');
     Readln(S);
     N:=0;
     For I:=1 To Length(S) Do
     Begin
          If strtoint(S[I]) mod 2 = 0 Then
          Inc(N);
          end;
     Write('N = ',N);
     Readln;
  end.
 
Оставляйте комментарии, добавляйте свои интересные задачи. 
Спасибо что посетили наш сайт. 
 
Категория: Задачи по программированию | Добавил: shypuk (01.03.2013)
Просмотров: 2945 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]