Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.03.2017 13:36
- Информатика
- remove_red_eye 16402
- thumb_up 19
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var w:=ReadlnString('Введите слово:');
w[1]:='*'; w[w.Length]:='*';
Writeln(w)
end.
Пример
Введите слово: Паскаль
*аскал*
begin
var s:=ReadlnString('Введите текст:');
Writeln('Количество слов равно ',s.ToWords.Count)
end.
Пример
Введите текст: Карл у Клары украл кораллы
Количество слов равно 5
- 26.03.2017 07:47
- thumb_up 28
Var S:string;
Begin
Write('Введите слово: ');ReadLn(S);
S[1]:='*';
S[Length(S)]:='*';
WriteLn(S)
End.
2)
Var
S:string;
i,k:integer;
Begin
Write('Введите строку символов: ');ReadLn(S);
S:=S+' ';
k:=0;
For i:= 1 to Length(S)-1 do
if (S[i] ' ')and(S[i+1] = ' ') then k:=k+1;
WriteLn('Количество слов в строке: ',k);
End.
- 27.03.2017 02:54
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.