Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
snick1996
Новичок
0 / 0 / 0
Регистрация: 14.10.2013
Сообщений: 34
28.10.2013, 10:38     Ошибка в программе
  #1
Ввести строку. Удалить из нее сочетания РHP.
Код Pascal
1
2
3
4
5
6
7
8
9
var
s:string;
a:integer;
begin
readln(s);
a:=length(s);
delete(php);
write;
end.
Ошибка возможно в этой строке: delete(php);
Но совневаюсь, что этот программный код будет работать.
AdAgent
Объявления
28.10.2013, 10:38
ildwine
Модератор
1703 / 1225 / 265
Регистрация: 04.03.2013
Сообщений: 3,070
Записей в блоге: 1
28.10.2013, 13:54     Ошибка в программе
  #2
Код Pascal
1
2
3
4
5
6
7
8
9
var
  s : string;
  a : integer;
begin
 readln(s);
 for a := 1 to length(s) do
  delete(s, pos('PHP', s), 3);
 writeln(s);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 23:52. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.