Распечатать все числа, встречающиеся в заданном тексте. Опции

[tanjusha]

Распечатать все числа, встречающиеся в заданном тексте.

[tanjusha]

вот то что у меня получилось...ток там ошибка

program laba;
uses crt;
var
s:string;
a:array[1..20]of integer;
i,j:integer;
begin
writeln('Vvedite ctroky');
readln(s);
for i:=1 to length(s) do
if s[i]in['0'..'9'] then
s[i]:=s[i]+1;
writeln(s);
readln;
end.

М

tanjusha, просьба выполнять правила: помещай программный код в тэги! Выдели код и выбери нужный пункт в меню CODE в форме ввода мессаджа. Lapp

[Lapp]

вот то что у меня получилось...ток там ошибка

Какая именно ошибка? Приведи ее текст (что компилятор сказал).

[tanjusha]

Какая именно ошибка? Приведи ее текст (что компилятор сказал).

Error26: Type mismatch

[Lapp]

Error26: Type mismatch

При указании ошибки хорошо ьы еще говорить, в какой строке. Конечно, в этом твоем коде все ясно, но на будущее учти, если спрашивать.
Вот тут:

s[i]:=s[i]+1;

- у тебя нестыковочка.
s - это строка, то есть массив символов.
Один ее элемент, s[i] - это символ, то есть цифра или буква или знак препинания или там плюс или минус... Которче, значек - маленькая картинка, из которых состоит печатный текст. Это ты понимаешь? Символы обычно заключаются в кавычки. Например, '1' - это символ единицы. А просто 1 - это число. Числа можно, скажем, складывать между собой. Символы, строго говоря, нельзя. А что ты подразумевала, когда складывала символы с числами - это я вообще понять не могу. И вообще я не понимаю, какой смысл ты хотела заключить в эту строчку. Можешь постараться передать словами, что ты хотела сделать? Пожалуйста, сделай это.


Добавлено через 10 мин.
Танюш, давай поактивнее. От тебя никто не ждет откровений, достаточно показать, что ты хоть что-то делаешь. Отвечай на вопросы поскорее, и все будет в порядке. Не стесняйся, тут никто не будет смеяться.