Не получается компилировать программу на паскале Выходит ошибка из-за else, пишет, что встречено else, а ожидался оператор. Вот программа: var s:='2'+'8'*99+'2'; begin while (pos('81', s)<>0) or (pos('882', s)<>0) or (pos('8883', s)<>0) do begin var i81:=pos('81', s); var i882:=pos('882', s); var i8883:=pos('8883', s); if i81<>0 then begin delete(s, i81, 2); insert('2', s, i81); else if i882<>0 then begin delete(s, i882, 3); insert('3', s, i882); else delete(s, i8883, 4); insert('1', s, i8883); end; end; end; end.

Информатика

Ответить

Ответы

Vitalevich1187

19.11.2020

var s:='2'+'8'*99+'2';

begin

while (pos('81',s)<>0) or (pos('882',s)<>0) or (pos('8883',s)<>0) do

begin

var i81:=pos('81',s);

var i882:=pos('882',s);

var i8883:=pos('8883',s);

if i81<>0 then

begin

delete(s,i81,2);

insert('2',s,i81)

end

else

if i882<>0 then

begin

delete(s,i882,3);

insert('3',s,i882);

end

else

delete(s,i8883,4);

insert('1',s,i8883);

end;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Не получается компилировать программу на паскале Выходит ошибка из-за else, пишет, что встречено else, а ожидался оператор. Вот программа: var s:='2'+'8'*99+'2'; begin while (pos('81', s)<>0) or (pos('882', s)<>0) or (pos('8883', s)<>0) do begin var i81:=pos('81', s); var i882:=pos('882', s); var i8883:=pos('8883', s); if i81<>0 then begin delete(s, i81, 2); insert('2', s, i81); else if i882<>0 then begin delete(s, i882, 3); insert('3', s, i882); else delete(s, i8883, 4); insert('1', s, i8883); end; end; end; end.