в Pascal ABC

+ 0 -

Tamrico

04 июня 2014 г., 0:02:41 (9 лет назад)

var a,b:integer;
 i:char;
begin
read(a);
b:=0;
for i:='1' to 'a' do
if (a>=1)and(a<=9)then b:=b+1;
 if b mod 2=0 then
writeln('четное ');
if b mod 2=1 then writeln('не четное ');
end.

+ 0 -

Vicula82

04 июня 2014 г., 2:21:46 (9 лет назад)

а в тексте только цифры

+ 0 -

Tazhikbaiaida1

04 июня 2014 г., 4:00:15 (9 лет назад)

да

+ 0 -

Dashakvitko

04 июня 2014 г., 4:35:12 (9 лет назад)

В тексте или числе?

+ 0 -

Culema299

04 июня 2014 г., 5:23:29 (9 лет назад)

задача звучит так: Определите количество нечетных цифр, содержащихся в тексте, в введенном с клавиатуры