1)Ввести с клавиатуры строку. Вывести на экран пары рядом стоящих символов, добавляя к ним справа восклицательный знак. {например: «СНЕГУРОЧКА» СН!, ЕГ!, ГУ!, РО!, ЧК!, А!} 2)Ввести с клавиатуры строку. Вывести на экран пары симметричных относительно центра строки символов, обрамляя их знаками больше и меньше. {например: «ДЕЛЬТОПЛАН», <ДН!>, <ЕА>, <ЛЛ>, <ЬП>, <ТО> }
Нужна помощь. Необязательно сами программки, хотя бы ход их выполнения.
_LeeRoy_
22.06.2008 23:54
№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.
_LeeRoy_
23.06.2008 0: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 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.
-Даша-
23.06.2008 0:38
_LeeRoy_
Спасибо тебе огромное!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.