Помощь - Поиск - Пользователи - Календарь
Полная версия: Ещё 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_

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