Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А"

@Витек)) · Регистрация: 13.09.2012

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

Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А". если можно пожалуйста в Delphi

@vampire6666 · 11.02.2013, 22:22

Витек)), вот...

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
VAR i, z : Integer;
    S : String;
    Flag : Boolean;
 
 
begin
Readln(s);
s:=s+' '; z := 0; Flag := False;
For i := 1 To Length(S) Do
  Begin
   If S[i] = 'a' Then Flag := True;
   If (S[i] = ' ') And (Flag = True) Then Begin
    Flag := False;
    z := z + 1; End;
  End;
Writeln(inttostr(z));
Readln;
end.

@HanDi · 11.02.2013, 22:26

Не по теме:

vampire6666, молодец, умеешь гуглом пользоваться :D

@Витек)) 1 / 1 / 0 Регистрация: 13.09.2012 Сообщений: 19
		1
	Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А" 11.02.2013, 20:32. Показов 2689. Ответов 2 Метки нет (Все метки) Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А". если можно пожалуйста в Delphi 0

@HanDi
	11.02.2013, 22:26 Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А" #3
	Не по теме: vampire6666, молодец, умеешь гуглом пользоваться :D 0

Опции темы

Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А"

Решение