Встречаются ли в тексте четные цифры

@AniZea · Регистрация: 17.11.2010

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

помогите ребятушки пожпалуйста родные решить задачку

“Строки. Множества”

задачка-Встречаются ли в тексте четные цифры?

@Tjm · 23.11.2010, 22:11

uses crt;
var
a:set of Char;
i,k:Integer;
s:string;

begin
k:=0;
write('Enter string');
Readln(s);
a:=['2','4','6','8'];
for i:=1 to Length(s) do
if s[i] in a then inc(k);
if k<>0 then write('YEs') else write ('No');
Readln;

end.

@AniZea · 24.11.2010, 05:20 **[ТС]**

аригато

@AniZea 0 / 0 / 0 Регистрация: 17.11.2010 Сообщений: 21
		1
	Встречаются ли в тексте четные цифры 23.11.2010, 21:01. Показов 762. Ответов 2 Метки нет (Все метки) помогите ребятушки пожпалуйста родные решить задачку “Строки. Множества” задачка-Встречаются ли в тексте четные цифры? 0

@Tjm 26 / 26 / 13 Регистрация: 23.11.2010 Сообщений: 58
	23.11.2010, 22:11	2
	uses crt; var a:set of Char; i,k:Integer; s:string; begin k:=0; write('Enter string'); Readln(s); a:=['2','4','6','8']; for i:=1 to Length(s) do if s[i] in a then inc(k); if k<>0 then write('YEs') else write ('No'); Readln; end. 1

@AniZea 0 / 0 / 0 Регистрация: 17.11.2010 Сообщений: 21
	24.11.2010, 05:20 [ТС]	3
	аригато 0