Помощь - Поиск - Пользователи - Календарь
Полная версия: Ещё 2 задачки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-Даша-
1)Ввести с клавиатуры строку. Вывести на экран пары рядом стоящих символов, добавляя к ним справа восклицательный знак. {например: «СНЕГУРОЧКА» СН!, ЕГ!, ГУ!, РО!, ЧК!, А!}
2)Ввести с клавиатуры строку. Вывести на экран пары симметричных относительно центра строки символов, обрамляя их знаками больше и меньше. {например: «ДЕЛЬТОПЛАН», <ДН!>, <ЕА>, <ЛЛ>, <ЬП>, <ТО> }

Нужна помощь. Необязательно сами программки, хотя бы ход их выполнения.


_LeeRoy_
№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_
№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_

Спасибо тебе огромное!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.