//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.
Строка = молоко
пока (есть буква о) делать
начало
если есть буква о
получаем индекс буквы о
строке присвоить подстроку от 0 до индекса буквы 0 + от индекса буквы 0 до длинны строки
конец
если не понятно пиши в личку
а если записать допустим на java то это будет выглядеть так
String word = "Молоко";
word = word.replaceAll('o','');
или
String word = "Молоко";
int index = word.indexOf('o');
while(index > 0 ){
word = word.substring(0,index) + word.substing(index+1,word.length());
index = word.indexOf('o');
}
как то так
Int c[6][6], p[2], index, buff;
p[0] = 0;
//заполняем массив рандомными числами от 0 до 10
for (int i = 0; i < 6; i++)
{
for (int j = 0; j < 6; j++)
{
c[i][j] = 0 + rand()%10; //заполнил рандомными числам от 0 до 10
}
}
//теперь проходим массив по столбцам и просчитываем их произведение
for (int j = 0; j < 6; j++)
{
for (int i = 0; i < 6; i++)
{
p[1] *= c[i][j]; //произведение столбца
}
//проверяем если произведение предыдущего столбца меньше
//то мы записываем индекс большего столбца
if (p[0] < p[1])
{
p[0] = p[1];
index = j;
}
}
//и собственно меняем наши столбцы местами
for (int i = 0; i < 6; i++)
{
buff = c[i][0];
c[i][0] = c[i][index];
c[i][index] = buff;
}
дальше с выводом и библиотеками думаю сам разберешься
Роль:
1. Появление новых средств, накопление информации на машиночитаемых носителях.
2. Развитие средств связи, обеспечивающие доставку информации практически в любую точку, без ограничения времени и пространства.
3. Возможность автоматической обработки информации с помощью компьютеров по данным алгоритмам (сортировка, классификация, представление в нужной форме).
Область применения: везде. В частной жизни каждого человека, на всех производствах, в любой работе где необходима работа с информацией.
Var p,i: integer;
begin
p:=1;
for i:=1 to 8 do
if (i mod 2 <> 0) then
p:=p*i;
writeln(p);
end.