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

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

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

Вариант 7

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

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

Задание. Вставьте в строку после каждого символа про­бел. Вывести на экран ре­зультат.

program stroka;

var str : string;

i,n : integer;

const st0=' ';

begin

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

readln(str);

n:=1;

for i:=1 to length(str) do

begin

n:=2*i;

insert(st0,str,n);

end;

writeln(str);

end.

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

3

3