Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′

@Nikron · Регистрация: 14.03.2010

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

1. Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′, а также количество каждого из этих символов.

@Leshak · 27.10.2012, 22:08

Delphi

var
 text: string;
 count_1, count_2: integer;
 i: byte;
 flag_1, flag_2: boolean;
 
begin
 
readln(text);
 
flag_1:=false;flag_2:=false;count_1:=0;count_2:=0;
for i:=1 to length(text) do begin
    if (text[i] = 'A') then  begin 
        inc(count_1);
        flag_1:=true;
    end;
    if( text[i] = 'E' ) then begin
       inc(count_2);
       flag_2:=true;
    end;
end;
 
if flag_1  = false then writeln('There is no word "A" in text')
else write('There is such word "A" and count is: ',count_1);
writeln;
if flag_2  = false then writeln('There is no word "B" in text')
else write('There is such word "A" and count is: ',count_2);
 
end.

Чуток подправил.

@Nikron 0 / 0 / 0 Регистрация: 14.03.2010 Сообщений: 9
		1
	Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′ 27.10.2012, 21:15. Показов 1087. Ответов 1 Метки нет (Все метки) 1. Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′, а также количество каждого из этих символов. 0

Опции темы

Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′

Решение