лабораторная работа / вар1 / лаб7
.docБалаковский институт техники технологий и управления
Лабораторная работа №7
Выполнил студент УИТ-2в
Балаково 2007 год.
Задание. Выведите на экран позиции, на которых находится буква ‘е’. Посчитайте их количество.
program stroka;
var str : string;
i,n : integer;
begin
writeln('Введите строчку);
readln(str);
n:=0;
for i:=1 to length(str) do
if str[i]='е' then
begin
n:=n+1;
writeln(i);
end;
writeln('Количество символов е=',n);
end.
Пояснения к блок-схеме:
k – количество символов
в строке.(считается с помощью
оператора ength())