1)Ввести с клавиатуры строку. Вывести на экран пары рядом стоящих символов, добавляя к ним справа восклицательный знак. {например: «СНЕГУРОЧКА» СН!, ЕГ!, ГУ!, РО!, ЧК!, А!}
2)Ввести с клавиатуры строку. Вывести на экран пары симметричных относительно центра строки символов, обрамляя их знаками больше и меньше. {например: «ДЕЛЬТОПЛАН», <ДН!>, <ЕА>, <ЛЛ>, <ЬП>, <ТО> }
Нужна помощь. Необязательно сами программки, хотя бы ход их выполнения.
№1
program pari;
uses crt;
var a : string;
i,b: integer;
begin clrscr;
writeln('vvedite stroku'); readln(a);
for i:=1 to length(a) do
begin inc(b); write(a[i]);
if b mod 2 = 0 then write('! '); end;
if odd(length(a)) then write('!');
readkey;clrscr;
end.
№2
program pari;
uses crt;
var a : string;
i,b,l,k: integer;
begin clrscr;
writeln('vvedite stroku'); readln(a);
l:= length(a);
k:= l div 2;
for i:=1 to k do
begin write('<',a[i]); write(a[l],'> '); l:=l-1; end;
if odd(length(a)) then write('<',a[k+1],'>');
readkey;clrscr;
end.
_LeeRoy_
Спасибо тебе огромное!