#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
<span> setlocale (0,"russian");</span><span>
srand (time(NULL));
</span><span> short A[3],B[3];</span><span>
int a=0,b=0;</span><span>
cout << "Случайное заполнение массивов: " << endl;
</span><span> cout << "1-ый: ";
</span><span> for (short i=0;i<3;i++)</span><span>
{
</span><span> A[i]=rand()%20-9;</span><span>
cout << A[i] << ' ';</span><span>
a+=A[i];
</span><span> }
</span><span> cout << endl << "2-ой: ";
</span><span> for (short i=0;i<3;i++)</span><span>
{
</span><span> B[i]=rand()%20-9;</span><span>
cout << B[i] << ' ';</span><span>
b+=B[i];
</span><span> }
</span><span> cout << endl << "Произведение суммы данных массивов: " << a*b;</span><span>
system ("PAUSE>>VOID");</span><span>
return 0;
</span><span>}</span>
// PascalABC.NET 3.0, сборка 1073
var
Bag,Bagaj:array[1..2] of longint;
begin
Bagaj[1]:=5; Bagaj[2]:=43600;
{ перенос Bagaj -> Bag }
Bag[1]:=Bagaj[1]; Bag[2]:=Bagaj[2];
Writeln('Предметов- ',Bag[1],', общий вес ',Bag[2]);
Bag[1]:=4; Bag[2]:=24540;
{ перенос Bag -> Bagaj }
Bagaj[1]:=Bag[1]; Bagaj[2]:=Bag[2];
Writeln('Предметов- ',Bagaj[1],', общий вес ',Bagaj[2]);
end.
<em><u>Тестовое решение:</u></em>
Предметов- 5, общий вес 43600
Предметов- 4, общий вес 24540
Var s,s1:string; p:byte;
<span>begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p]; </span>
<span>writeln(s1); end.</span>
Tab можно использовать как красную строку
По-моему, этот вопрос имеет больше отношение к линвистике,
чем к информатике. Тем не менее, относительно текста можно:
1. заменить слова синонимами, акронимами, и .т. п.
2. изменить стилистику текста
3. зашифровать, изменить кодировку символов
4. добавить HTML разметку и др. виды форматирования
5. структурировать, изменить логику высказываний
6. посчитать количество высказываний ложь / истина
7. море других опреаций из разных областей
