Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
28.10.2013, 10:38   #1
snick1996
Новичок
Регистрация: 14.10.2013
Сообщений: 34
Репутация: 0 (0)
Ошибка в программе / Pascal ABC

Ввести строку. Удалить из нее сочетания Р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);
Но совневаюсь, что этот программный код будет работать.
28.10.2013, 10:38
AdAgent
Объявления
28.10.2013, 13:54   #2
ildwine
Модератор
Регистрация: 04.03.2013
Сообщений: 2,833
Репутация: 1613 (1159)
Записей в блоге: 1
Лучшие ответы: 235
Ошибка в программе / Pascal ABC

Код 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.
Другие темы раздела
Ввести строку. Найти длину самого короткого слова Pascal ABC
Ввести строку. Найти длину самого короткого слова.
N=15 Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и по-следующего) Pascal ABC
N=15 Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и по-следующего).
28.10.2013, 13:54
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Delphi Ошибка в программе
Ребят,кому не сложно,помогите найти ошибку.Полдня просидела,не могу найти...
Delphi для начинающих Татьянка22 23.04.2014 16:26
PascalABC.NET Ошибка в программе: Ошибка времени выполнения: Среда выполнения Common Language Runtime обнаружила недопустимую программу
Когда пытаюсь вывести данные, выходит ошибка и выделает строку с WriteLn. procedure vivod(var f:file of aviabilety; Var bil:Aviabilety); Var i:Integer; begin assign(f,'bil.pas'); reset(f); For i:=1 to 2 do begin read(f,bil); writeln (bil.Fio,' | ',bil.pynkt,' |...
PascalABC.NET NoviiMir 17.12.2012 12:41
MathCAD Ошибка в программе
Задача по методам оптимизации. Суть в поиске минимума функции двух переменных. В методе разобрался, а вот реализовать в маткаде не получается. Помогите найти ошибку в программе. Файл прикреплен ниже
MathCAD lsd180 17.11.2012 00:33
C++ Builder Ошибка в программе
Помогите найти ошибку //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm"...
C++ Builder Alexandr000006 14.07.2011 10:08
Опции темы


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