begin. fori:= 1 tolength(s) do. ifs[i]=b then

Лабораторная работа

Выполнил:

Студент 3курса гр. 22-07

Поспелов Руслан

Преподаватель:

Кабанов А.М.

2011г.

Тема: Работа с одномерными массивами

Цель работы: Научиться работать с одномерными массивами

Дана строка символов s. Подсчитать, сколько раз среди данных символов встречается буква х.

var

s:string;

n,i:integer;

b:char;

begin

b:='x';

s:='Напишите алгоритм, сколько раз в данном слове x встречается данное слово у. Если слово у длиннее, чем x, то результат должен быть равен нулю.';

n:=0;

fori:= 1 tolength(s) do

ifs[i]=b then

n:=n+1;

writeln('количество букв х в строке =',n);

end.