Переписать под паскаль абс.net дана строка, в которой содержится осмысленное текстовое сообщение. слова сообщения разделяются пробелами и знаками препинания. 1. вывести только те слова сообщения, в которых содержится заданная подстрока. using system; using system.linq; class program { static void main(string[] args) { string str = "дана строка, в которой содержится осмысленное текстовое сообщение. " + "слова сообщения разделяются пробелами и знаками препинания\n"; string podstr = "ния"; //подстрока var temp = str.(i => i.contains(podstr)); console.writeline(str); foreach (var word in temp) console.write(word+" "); console.readline(); } }
// Внимание! Если программа не работает, обновите версию!
begin
var str:='Дана строка, в которой содержится осмысленное текстовое сообщение. '+
'Слова сообщения разделяются пробелами и знаками препинания'+NewLine;
var podstr:='ния'; //подстрока
var temp:=str.Split.Where(i->pos(podstr,i)>0);
Writeln(str);
foreach var word in temp do Print(word)
end.