лабораторная работа / вар20 / лаб7

Балаковский институт техники технологий и управления

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

Вариант 20

Выполнил студент УИТ-22

Балаково 2007 год.

Задание. Из строки удалите все символы, совпадающие с последним символом.

Т

k= length(str)

екст программы:

program lab7;

var str : string;

i,k: integer;

begin

writeln('Введите строчку');

readln(str);

k:=length(str);

for i:=1 to k-1 do

if str[i]=str[k] then

delete(str,i,1);

writeln(str);

end.

delete(str,i,1)

Рис.1 Блок–схема программы