// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=SeqRandom(ReadInteger('n='),10,99).Sorted.ToArray; a.Println; var k:=ReadInteger('Сколько значений удалить?'); if k>=a.Length then Writeln('Задание не имеет смысла') else begin var s:=ReadArrInteger('Вводите значения через пробел:',k); a:=a.Where(x->not (x in s)).ToArray; a.Println end end.
#include <vector> #include <algorithm> using namespace std; int main() { string s; vector<char> vowels = {'a','e','i','o','u','y'}; cin >> s; int count_letters = 0; //сколько букв одной гласности подряд int count = 0; // сколько букв добавить int state = -1; //для гласности int c = state; // для запоминания for(int i = 0 ;i < s.length(); i++, c = state) { if(find(vowels.begin(),vowels.end(),s[i])!= vowels.end()) state = 0; else state = 1; if(c==state) count_letters++; if(count_letters == 3) { count_letters = 1; //так как одна буква остается справа от разделяющей count++; } } cout << count; }
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),10,99).Sorted.ToArray;
a.Println;
var k:=ReadInteger('Сколько значений удалить?');
if k>=a.Length then Writeln('Задание не имеет смысла')
else begin
var s:=ReadArrInteger('Вводите значения через пробел:',k);
a:=a.Where(x->not (x in s)).ToArray;
a.Println
end
end.
Пример
n= 17
12 14 17 30 31 34 40 41 45 46 67 76 76 78 86 87 93
Сколько значений удалить? 4
Вводите значения через пробел: 30 76 40 93
12 14 17 31 34 41 45 46 67 78 86 87