В 17 строчке выдаёт ошибку по поводу ";" и else
что\как и в какой строчке исправить...?
var
n_array: array [ 1 .. 100 ] of integer;
s, new_s: string;
cod, number, n, i, j: integer;
begin
write('Enter string:');readln(s);
n:=0;
if length(s)<80 then begin
for i:=1 to length(s) do begin
if s[i] in ['0'..'9'] then begin
inc(n);
val(s[i],n_array[n],cod);
delete(s,i,1);
end;
end
else writeln('stroka > 80!');
break;
end;
for j:=1 to n do begin
write(n_array[j],' ');
end;
writeln;
for i:=1 to length(s) do begin
for j:=1 to n_array[i] do begin
new_s:=new_s+s[i];
end;
end;
writeln(new_s);
readln;
end.
Примечание:
да, break от прошлых соображений остался
убрал)
и модифицировал. а компилятор находит ошибку с else - что нужно исправить?
var
n_array: array [ 1 .. 100 ] of integer;
s, new_s: string;
cod, number, n, i, j: integer;
begin
write('Enter string:');readln(s);
n:=0;
if length(s)<80 then begin
for i:=1 to length(s) do begin
if s[i] in ['0'..'9'] then
begin
inc(n);
val(s[i],n_array[n],cod);
delete(s,i,1);
end;
end;
for j:=1 to n do begin
write(n_array[j],' ');
end;
writeln;
for i:=1 to length(s) do begin
for j:=1 to n_array[i] do begin
new_s:=new_s+s[i];
end;
end;
writeln(new_s);
readln
else
writeln('stroka > 80!');
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.