Найти количество четных цифр

Vasya25 · 02.09.2013, 18:35

задачка в паскале. Найти количество четных цифр расположенных строго между нечетными

Vladimir_S · 02.09.2013, 18:53

Цитата:

Сообщение от Vasya25

задачка в паскале. Найти количество четных цифр расположенных строго между нечетными

Так.
1. Будьте любезны, никаких "Помогите, пожалуйста", "Help!!!", "Нужна помощь!" и т.п. - такие названия тем нашими Правилами ЗАПРЕЩЕНЫ. Тема переименована.
2. Сформулируйте задачу внятно. Где искать такие цифры? Что дано? В каком виде? Большое число? Массив? Строка? Файл? Какой длины? Не жалейте пальчики, напишите подробно.

Vasya25 · 02.09.2013, 19:03

Рад бы дополнить, но больше ничего не дано...

Vasya25 · 02.09.2013, 19:07

В десятичной системе счисления

Vasya25 · 02.09.2013, 19:07

ограничений по длинне числа нет

Vladimir_S · 02.09.2013, 19:22

Цитата:

Сообщение от Vasya25

ограничений по длинне числа нет

Чудесно. Пожалуйста:

Код:

Var
 A:Array[1..255] of Byte;
 i,N,N_even:Byte;
Begin
 Randomize;
 N_even:=0;
 Write('Length= ');
 Readln(N);
 For i:=1 to N do
  begin
   A[i]:=Random(9)+1;
   Write(A[i]);
  end;
 Writeln;
 For i:=2 to N-1 do
  if ((A[i-1] mod 2)=1) and ((A[i] mod 2)=0) and ((A[i+1] mod 2)=1) then Inc(N_even);
 Writeln('Result: ',N_even,' figures');
 Readln
End.

Vasya25 · 02.09.2013, 21:01

Тут имеются ввиду сочетания цифр "нечетная-четная-нечетная"

Vladimir_S · 03.09.2013, 08:23

Цитата:

Сообщение от Vasya25

Тут имеются ввиду сочетания цифр "нечетная-четная-нечетная"

А вот интересно - для кого и для чего я программку, решающую поставленную задачу именно так, выложил? Явно ведь не для двадцать пятого Васи - он на это дело внимания не обращает. Наверное, просто заняться мне было нечем.

AlexZir · 03.09.2013, 13:28

Владимир, исходя из формулировки к поставленной задаче, я бы написал гораздо проще

Цитата:

begin
writeln(4);
end;

и это решение тоже было бы корректным

Вася, всего известно 10 цифр, из них 5 четных, 5 нечетных. И удовлетворяют решению задачи цифры 2, 4 6, 8, всего таких цифр четыре

. Может быть, вы все-таки имели в виду не цифры, а числа? или же имеется в виду, что нужно подсчитать количество сочетаний цифр в записи некоего целого числа?

Vladimir_S · 03.09.2013, 13:36

Цитата:

Сообщение от AlexZir

Вася, всего известно 10 цифр, из них 5 четных, 5 нечетных. И все они удовлетворяют решению задачи. Может быть, вы имели в виду не цифры, а числа?

Не, Лёш, тут, как я понял, подразумевается вот что: дано произвольное длинное целое число. Нужно подсчитать в его записи количество троек цифр типа нечет-чет-нечет.
Вот это я бы хотел получить от Васи, а вовсе не традиционный бубнёж "а мне так дали!". Впрочем, Вася, как я вижу, ответов всё равно не читает. Видать, из принципа.

02.09.2013, 18:35	#1 (permalink)
Vasya25 Member Регистрация: 02.09.2013 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Найти количество четных цифр задачка в паскале. Найти количество четных цифр расположенных строго между нечетными

02.09.2013, 19:03	#3 (permalink)
Vasya25 Member Регистрация: 02.09.2013 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Рад бы дополнить, но больше ничего не дано...

02.09.2013, 19:07	#4 (permalink)
Vasya25 Member Регистрация: 02.09.2013 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	В десятичной системе счисления

02.09.2013, 19:07	#5 (permalink)
Vasya25 Member Регистрация: 02.09.2013 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ограничений по длинне числа нет

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

02.09.2013, 21:01	#7 (permalink)
Vasya25 Member Регистрация: 02.09.2013 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Тут имеются ввиду сочетания цифр "нечетная-четная-нечетная"