Выведите строку в правом нижнем углу экрана, вставив в нее слово “привет” перед каждым восклицательным знаком

@Kutta · Регистрация: 15.04.2015

Заполните экран красным цветом. Введите строку с клавиатуры. Вывидите строку в правом нижнем углу экрана, вставив в нее слово “привет” перед каждым восклицательным знаком.

@ZX Spectrum-128 · 29.04.2015, 20:53

Pascal

{Заполните экран красным цветом. Введите строку с клавиатуры. Вывидите
строку в правом нижнем углу экрана, вставив в нее слово "привет" перед
каждым восклицательным знаком.}
uses
  crt;
var
  i,n,k:integer;
  s,s1:string;
begin
//  s:='Мама! Мыла! Раму!';
  readln(s);
  n:=length(s);
  for i:=n downto 1 do
    begin
      if s[i]='!' then
        insert('привет',s,i);
    end;
  TextBackGround(red);
  TextColor(White);
  Clrscr;
  CursorOff;
  GotoXY(80-Length(s),25);
  writeln(s);
  readln;
end.

@Kutta 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 10
		1
	Выведите строку в правом нижнем углу экрана, вставив в нее слово “привет” перед каждым восклицательным знаком 28.04.2015, 15:48. Показов 2538. Ответов 1 Метки нет (Все метки) Заполните экран красным цветом. Введите строку с клавиатуры. Вывидите строку в правом нижнем углу экрана, вставив в нее слово “привет” перед каждым восклицательным знаком. 0

Опции темы

Выведите строку в правом нижнем углу экрана, вставив в нее слово “привет” перед каждым восклицательным знаком

Решение