Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
По-моему, этот вопрос имеет больше отношение к линвистике,
чем к информатике. Тем не менее, относительно текста можно:
1. заменить слова синонимами, акронимами, и .т. п.
2. изменить стилистику текста
3. зашифровать, изменить кодировку символов
4. добавить HTML разметку и др. виды форматирования
5. структурировать, изменить логику высказываний
6. посчитать количество высказываний ложь / истина
7. море других опреаций из разных областей
<span>#include<span> <iostream>
</span>#include<span> <cstring>
</span>
int main() {
char* text1 = "Слово"<span>;
</span> char* text = "Как то текст с гласными на конце кок"<span>;
</span>
char* newText = new char[strlen(text)]<span>;
</span>
int lastStop = 0, lastIter = 0<span>;
</span> for (int i = 0; text[i] != '\0'; i++) {
bool copyIt = false<span>;
</span>
if (text[i] == ' ') lastStop = i<span>;
</span>
if (text[i + 1] == ' ' || text[i + 1] == '\0') {
for (int j = 0; text1[j] != '\0'; j++) {
if (text[i] == text1[j]) {
copyIt = false; break<span>;
</span> }
copyIt = true<span>;
</span> }
}
if (copyIt == true) {
for (int j = lastStop; j <= i; j++, lastIter++)
newText[lastIter] = text[j]<span>;
</span> }
}
for (int i = 0; i < lastIter; i++)
std::cout << newText[i]<span>;
</span>
std::cout << "\n"<span>;
</span>
return 0<span>;
</span>}</span>
1) А В В(отр с черточкой) В(отр)vA F
0 0 1 1 0
0 1 0 0 0
1 0 1 1 1
1 1 0 1 1
2) ABC AVB CVB F
0 0 0 0 0 0
0 0 1 0 1 0
0 1 0 1 1 1
1 0 0 1 0 0
0 1 1 1 1 1
1 0 1 1 1 1
1 1 0 1 1 1
1 1 1 1 1 1
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
<em>// Внимание! В более ранних версиях программа работать не будет!</em>
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
<u>Пример</u>
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40
