Контрольные работы / 1- 4_Информационные технологии / КР1

Министерство образования и науки

Томский государственный университет систем управления и

радиоэлектроники

Кафедра автоматизации обработки информации

Контрольная работа №1

по дисциплине «Информационные технологии обработки данных/Офисные информационные системы»

учебное пособие Коробова В.В. «Информационные технологии обработки данных»

Вариант №4

Выполнил студент

гр. з-471-а

специальности 81100

Парфенюк Александр Владимирович

27.01.2012

г. Абакан 2012

Задана строка символов. Группы символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов в строке, у которых первый и последний символ совпадают

var

s: string;

i, Count, x: integer;

begin

ReadLn(s);

i := 1;

Count := 0;

while i <= Length(s) do begin

x := i;

while (s[i] <> ' ') and (i <= Length(s)) do Inc(i);

if s[x] = s[i-1] then Inc(Count);

while (s[i] = ' ') and (i <= Length(s)) do Inc(i);

end;

WriteLn(Count, ' слова ');

Readln