Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Строка

Автор: klyan 27.1.2007, 00:20

Ввести строку А: string с клавиатуры. Вместо каждой точки поставить многоточие, вместо буквы "а" букву "о". Посчитать количество элементов.

Автор: Sunvas 27.1.2007, 01:03

Код


var s,ss:string;
i:word;
begin
readln(s);
ss:='';
for i:=1 to length(s) do
case s[i] of
'.': ss:=ss+'...';
'a': ss:=ss+'o';
else ss:=ss+s[i];
end;
writeln(ss,'koli4estvo - ', length(ss));
readln;
end.

Автор: V.A.KeRneL 28.1.2007, 22:53

klyan, что такое «количество элементов» в данном контексте? Каких именно элементов? Символов? В исходной строке, или в результирующей? Sunvas правильно понял, что требуется? Можно ему ставить плюсик за телепатизм? smile

Автор: Sunvas 28.1.2007, 23:11

Цитата(V.A.KeRneL @ 28.1.2007, 22:53

)

Sunvas правильно понял, что требуется? Можно ему ставить плюсик за телепатизм?

Можно. В последнее время у меня бывают подобные задачи, так что я могу читать невидимые строки со смыслом между строками текста. smile