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