Написать программу в паскале последовательность символов состоящий из слов. переписать массив слова ,такие ,что некоторые символы входят три раза а каждое слово .вывести на экран полученный массив слов или сообщение 'нет 'если массив пуст.

185

318

Посмотреть ответы 2

Ответы на вопрос:

Diman66666

Информатика

4,4(48 оценок)

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! function good(s: string): boolean; begin var n: =s.length; var t: =s.tochararray.distinct; result: =false; foreach var c in t do begin var k: =0; for var i: =1 to n do if s[i]=c then k+=1; if k=3 then begin result: =true; break end end; end; begin var aw: =readlnstring('ведите строку: ').towords; var aw2: =aw.where(w-> good(w)); aw2.println; end. пример ведите строку: корова барометр молоко перемена соответствие кровообращение молоковоз борода молоко перемена соответствие кровообращение

alenayugova26Alena

Информатика

4,4(22 оценок)

Ура́л — река в восточной европе, протекает по территории россии и казахстана, впадает в каспийское море. является третьей по протяжённости рекой европы, уступает по этому показателю только волге и дунаю. длина — 2428 км