Составить программу, которая из введенного текста удаляет первую букву "а"; все буквы "а"

@RolEx · Регистрация: 03.12.2014

Составить программу, которая из введенного текста удаляет первую букву "а"; все буквы "а".

@IceCortez · 09.12.2014, 21:37

Pascal

var
  s, s1, s2: string;
begin
  readln(s);
  s1 := s;
  s2 := s;
  delete(s1, pos(' ', s1), 1);
  while pos(' ', s2) <> 0 do
    delete(s2, pos(' ', s2), 1);
  writeln(s1);
  writeln(s2);
end.

@RolEx · 09.12.2014, 21:45 **[ТС]**

не работает это программа

@IceCortez · 09.12.2014, 22:18

Думаю, мою ошибку было легко заметить...

Pascal

var
  s, s1, s2: string;
begin
  readln(s);
  s1 := s;
  s2 := s;
  delete(s1, pos('a', s1), 1);
  while pos('a', s2) <> 0 do
    delete(s2, pos('a', s2), 1);
  writeln(s1);
  writeln(s2);
end.

@RolEx 0 / 0 / 0 Регистрация: 03.12.2014 Сообщений: 9
		1
	Составить программу, которая из введенного текста удаляет первую букву "а"; все буквы "а" 09.12.2014, 21:32. Показов 8158. Ответов 3 Метки нет (Все метки) Составить программу, которая из введенного текста удаляет первую букву "а"; все буквы "а". __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

@RolEx 0 / 0 / 0 Регистрация: 03.12.2014 Сообщений: 9
	09.12.2014, 21:45 [ТС]	3
	не работает это программа 0

Опции темы