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

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

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

Вариант 22

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

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

Задание. Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 сим­вол.

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

program stroka;

var str : string;

i: integer;

begin

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

readln(str);

for i:=1 to length(str)-1 do

begin

delete(str, length(str),1);

writeln(str);

end;

end..

delete(str, length(str),1)

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