1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 102
1

Строки. Подсчитать кол-во четных цифр

01.04.2013, 06:57. Показов 1789. Ответов 4
Метки нет (Все метки)

11.Дана строка символов, содержащая не более 255 цифр. Необходимо подсчитать количество чётных цифр
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2013, 06:57
Ответы с готовыми решениями:

Найти кол-во четных цифр.
Дано 3-х значное число. Определить кол-во четных в нем цифр, используя mod или div.

Подсчитать количество чётных цифр, бильших среднего арифметического всех цифр
Подсчитать кол-во чётных цифр, бильших среднего арифметического всех цифр! Пожалуйсто решите,я...

Подсчитать кол-во положительных элементов массива Z, стоящих на чётных местах
Дан вектор Z . Пользователь вводит максимальное значение N, которое не должно превышать 11. Нужно...

необходимо подсчитать кол-во цифр в строке
необходимо подсчитать кол-во цифр в строке, не пойму где ошибка:((( помогите, плиз... var...

4
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
01.04.2013, 08:00 2
Pascal
1
2
3
k:=0;
for i:=1 to length(s) do
if ord(s[i])mod 2=0 then k:=k+1;
0
Модератор
9358 / 4720 / 3173
Регистрация: 17.08.2012
Сообщений: 14,829
01.04.2013, 09:01 3
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
2
3
k:=0;
for i:=1 to length(s) do
if ord(s[i])mod 2=0 then k:=k+1;
Тогда уж просто
Pascal
1
k := length(s) div 2;
наверное, под фразой
Цитата Сообщение от ttt_xx Посмотреть сообщение
количество чётных цифр
имеется ввиду количество цифр, делящихся на 2 без остатка, а не количество членов с чётным порядковым номером. Тогда, например, так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program oddd;
 
uses crt;
 
var i, j, k, cod: integer;
    s: string;
begin
repeat
write('Enter number: ');
readln(s);
until s <> '';
k :=0 ;
for i := 1 to length(s) do begin
  val(s[i], j, cod);
  if cod > 0
    then begin
      writeln('Invalid number!');
      readln;
      exit;
    end
    else if ((j mod 2) = 0) then k := k + 1;
end;  
writeln('Count of odd digits = ', k);
readln;
end.
или так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program oddd;
 
uses crt;
 
var i, k: integer;
    s: string;
 
begin
repeat
write('Enter number: ');
readln(s);
until s <> '';
k :=0 ;
for i := 1 to length(s) do
  case s[i] of
    '0', '2', '4', '6', '8': k := k + 1;
    '1', '3', '5', '7', '9': continue
    else begin
      writeln('Invalid number!');
      readln;
      exit;
    end;
  end;
writeln('Count of odd digits = ', k);
readln;
end.
ttt_xx, старайтесь не допускать разночтений в Ваших вопросах: то, что для Вас очевидно, может быть неочевидным для других людей, а может быть и вовсе ошибкой.

Всем всего доброго.
1
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
01.04.2013, 09:07 4
Я имел ввиду что вводятся только цифры, например
Pascal
1
2
3
4
5
6
7
8
9
10
s:='';
repeat
c:=readkey;
if c in ['0'..'9'] then
 begin
  write(c);
  s:=s+c;
 end;
if c=#13 then writeln
until c=#13;
тогда
Pascal
1
if ord(s[i])mod 2=0 then k:=k+1;
подсчитает количество цифр 0,2,4,6,8(коды=48,50,52,54,56)
2
Модератор
9358 / 4720 / 3173
Регистрация: 17.08.2012
Сообщений: 14,829
01.04.2013, 09:21 5
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
if ord(s[i])mod 2=0 then k:=k+1;
подсчитает количество цифр 0,2,4,6,8(коды=48,50,52,54,56)
Теперь ясно. Извините, тормознул.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2013, 09:21
Помогаю со студенческими работами здесь

Подсчитать кол-во чётных индексов отрицательных элементов введённого с клавиатуры массива целых чисел
Написать программу, которая подсчитывает кол-во чётных индексов отрицательных элементов введенного...

Во введенном тексте подсчитать наибольшее кол-во цифр, идущих подряд.
Пожалуйста,помогите решить задачу C# 2)Во введенном тексте подсчитать наибольшее кол-во цифр,...

Подсчитать количество четных цифр в строке
помогите решить задачу по JavaScript Дана строка символов. Подсчитать количество четных цифр в...

Подсчитать количество четных цифр в числе
Подсчитать количество четных цифр в числе, используя while и div. Кто может напишите плыз, уже...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru