Имя диска - C:
Имя каталога - BOOK
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var Гласные:=['а','е','ё','и','о','у','ы','э','ю','я'];
var s:=ReadlnString;
for var i:=s.Length downto 1 do
if LowCase(s[i]) in Гласные then Insert('c'+LowCase(s[i]),s,i+1);
Writeln(s)
end.
<u>Примеры</u>
Числитель
Чиcислиcитеcель
Анастасия, принеси бумагу и силикатный клей!
Аcанаcастаcасиcияcя, приcинеcесиcи буcумаcагуcу иcи сиcилиcикаcатныcый клеcей!
Ну в общем нужно найти в двухмерном массиве А 10 наименьших элементов и запихнуть их в массив M, а также найти для каждого из этих 10 элементов сумму координат в массиве А и запихнуть ее в массив S...
#include <iostream>
void print (int *a,int size)
{
for (int i=0; i<size; i++)
std::cout <<a[i] <<' ';
std::cout <<std::endl;
}
int main()
{
int C[10]={1,2,3,4,5,6,7,8,9,10};
int B[10];
for (int i=0; i<10; i++)
B[i]=C[9-i];
print (B,10);
return 0;
}
Ответ: 5
Пояснение:
<span>Существует 16 двоичных слов длины 4
Т.к. среди них есть слова, содержащие 1 или 3 единицы, то в нашем коде нужно использовать кодовые слова с длиной больше, чем 4
Слов длины 5 достаточно
Искомые кодовые слова можно получать, например, добавляя к каждому из 16 возможных двоичных слов справа "бит четности", равный 0, если 4-значное двоичное слово содержит четное количество единиц, и равный 1 в противном случае
Например, двоичное слово 0000 преобразуется в 00000, а двоичное слово 1011 – в 10111</span>