Дана строка символов. Разделителями слов в строке могут быть пробелы, ":",",",";",""', заданные в виде множества. распечатать слова, в которых содержатся цифровые символы. на паскале
Ответы на вопрос
Ответ:
На мові Pascal код для розділення строки на слова та виведення слів, що містять цифрові символи, може мати наступний вигляд:program WordsWithDigits;
const
Separators: set of Char = [' ', ':', ',', ';', '"'];
var
sentence: string;
word: string;
i: integer;
hasDigits: boolean;
begin
writeln('Введіть речення:');
readln(sentence);
word := '';
for i := 1 to Length(sentence) do
begin
if not (sentence[i] in Separators) then
begin
word := word + sentence[i];
end
else
begin
hasDigits := False;
for i := 1 to Length(word) do
begin
if word[i] in ['0'..'9'] then
begin
hasDigits := True;
break;
end;
end;
if hasDigits then
writeln(word);
word := '';
end;
end;
// Перевірка останнього слова
hasDigits := False;
for i := 1 to Length(word) do
begin
if word[i] in ['0'..'9'] then
begin
hasDigits := True;
break;
end;
end;
if hasDigits then
writeln(word);
readln;
end.
Ви можете скопіювати цей код в середовище розробки Pascal і виконати його, щоб отримати бажаний результат. Програма зчитує речення з клавіатури, розділяє його на слова за заданими роздільниками і виводить слова, що містять цифрові символи.