Форум программистов, компьютерный форум 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
Модератор
1833 / 1282 / 285
Регистрация: 04.03.2013
Сообщений: 3,239
Записей в блоге: 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

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