В этой программме пишет ошибку: нет перегруженной подпрограммы с такими типами параметров.
var a:string; i,j:integer;
begin
readln (a);
j:=length (a);
for i:=j to 1 do
if (copy(a,i,1)=1) or (copy (a,i,1)=5) then delete (a,i,1);
writeln (a);
end.
В этой программме пишет ошибку: нет перегруженной подпрограммы с такими типами параметров.
var a:string; i,j:integer;
begin
readln (a);
j:=length (a);
for i:=j to 1 do
if (copy(a,i,1)=1) or (copy (a,i,1)=5) then delete (a,i,1);
writeln (a);
end.
var a:string; i,j:integer;
begin
readln (a);
j:=length (a);
for i:=j to 1 do
if (copy(a,i,1)=1) or (copy (a,i,1)=5) then delete (a,i,1);
writeln (a);
end.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Ошибка заключается в неправильном использовании цикла for. В данном случае, цикл должен быть написан следующим образом:
for i:=j downto 1 do
После исправления цикла в программе, ошибка должна исчезнуть.