Открыть один текстовый файл, нажать на клавиатуре CTRL+A (Правка - Выделить всё), потом нажать CTRL+C (Правка - Копировать). Открыть второй текстовый файл, нажать CRTL+V (Правка - Вставить) и сохранить полученный файл.
Жили-были дед да баба в Розовом Королевстве. Все жители этого королевства обожали розовый цвет и предпочитали его всем другим цветам. Даже лапти люди носили розового цвета. Однажды внучка в розовом платьице ушла в розовый лес, чтобы собрать розовые грибы в розовом лесу. Но она побежала за розовой лягушкой и заблудилась. Но тут она увидела розового сокола, который сел на полянку, посадил девочку на свою розовую спину и улетел к бабушке и дедушке в их розовый домик. Через некоторое время они поженились и на их свадьбе было очень много розовых роз.
Либо вот:
Шёл как-то бедный мужик, шел по чистому полю, увидал под кустом зайца, обрадовался и говорит:
<span>— Вот когда заживу домком-то! Возьму этого зайца, убью плетью да продам за четыре алтына. На те деньги куплю свинушку. Она принесет мне двенадцать поросеночков. Поросятки вырастут, принесут еще по двенадцати. Я всех приколю, амбар мяса накоплю. Мясо продам, а на денежки дом заведу да сам женюсь. Жена-то родит мне двух сыновей: Ваську да Ваньку. Детки станут пашню пахать, а я буду под окном сидеть да порядки наводить: «Эй вы, ребятки, — крикну, — Васька да Ванька! Шибко людей на работе не подгоняйте, видно, сами бедно не живали! » Да так-то громко крикнул мужик, что заяц испугался и убежал, а дом со всем богатством, с женой и с детьми пропал.</span>
Ответ:
использовать Чертежник
алг
нач
цел й,ц
нц для й от 1 до 2
нц для ц от 1 до 4
опустить перо
сместиться на вектор (0,ц)
сместиться на вектор (ц,0)
сместиться на вектор (0,-ц)
сместиться на вектор (-ц,0)
поднять перо
сместиться на вектор (ц+1,0)
кц
сместиться в точку (0,-5)
кц
кон
Объяснение:
Смотри картинку
Var ar:array[1..10] of integer;
min,mini,i:integer;
begin
randomize;
min:=2147483647;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(100);
write(ar[i]:4);
if ar[i]<min then
begin;
min:=ar[i];
mini:=i;
end;
end;
for i:=mini to 9 do
ar[i]:=ar[i+1];
writeln;
writeln('Final array:');
for i:=1 to 9 do
write(ar[i]:4);
<span>end.</span>