Вывести те слова, у которых число четных цифр превышает число нечетных

@Tvinkis · Регистрация: 23.10.2014

Author24 — интернет-сервис помощи студентам

Дан массив из n слов произвольной длины (длина слова не превышает 80
символов). В качестве символов могут использоваться только арабские
цифры. Вывести те слова, у которых число четных цифр превышает число
нечетных.

@CodeR · 30.10.2014, 16:55

Pascal

Const nmax=30;
Var WordS:array[1..nmax] of string[80];
    i,j,n,count1,count2:integer;
Begin
    Repeat
     write('Введите 1<=N<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    For i:=1 to n do
    Begin
      write(i,' слово: ');
      readln(WordS[i]);
    End;
    For i:=1 to n do
    Begin
      count1:=0;count2:=0;
      For j:=1 to Length(WordS[i]) do
       if WordS[i][j] in ['0','2','4','6','8'] then inc(count1)
        else inc(count2);
      if count1>count2 then writeln(WordS[i]);
    End;
    readln;
End.

@Tvinkis · 31.10.2014, 17:31 **[ТС]**

Спасибо

@Tvinkis 0 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 2
		1
	Вывести те слова, у которых число четных цифр превышает число нечетных 30.10.2014, 16:33. Показов 1764. Ответов 2 Метки нет (Все метки) Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В качестве символов могут использоваться только арабские цифры. Вывести те слова, у которых число четных цифр превышает число нечетных. 0

@Tvinkis 0 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 2
	31.10.2014, 17:31 [ТС]	3
	Спасибо 0

Вывести те слова, у которых число четных цифр превышает число нечетных

Решение