Const
s='вернисаж';
begin
Writeln(s[3]+copy(s,1,2)+Copy(s,4,2)+s[2]);
Writeln(Copy(s,6,3)+s[7]);
Writeln(s[4]+Copy(s,2,2)+s[1])
end.
<em><u>Результат выполнения программы:</u></em>
рвение
сажа
нерв
Program n1;
var x,y,z: real;
procedure kvur(a,b,c: real);
var D: real;
begin
D:=b*b-4*a*c;
writeln('x1=',(-b+sqrt(D))/2*a);
writeln('x2=',(-b-sqrt(D))/2*a);
end;
begin
write('a=');
readln(x);
write('b=');
readln(y);
write('c=');
readln(z);
kvur(x,y,z);
end.
<span>#include <iostream> первое
</span><span>#pragma hdrstop второе
</span><span>using namespace std<span>; третье
</span></span><span>#pragma argsused четвертое
</span><span>int main(int argc, char* argv[]<span>) пятое
</span></span><span>int n<span>; шестое
</span></span><span>do седьмое
</span><span>std::cout << "Enter number: "<span>;<span> восьмое
</span></span></span><span>std::cin >> n<span>; девятое
</span></span><span>while (n != 0)<span>; десятое
</span></span><span>system("pause")<span>; одиннадцатое
</span></span><span>return 0<span>; конец
вроде так</span></span>
Хранить нужные объекты, упорядковывать информацию.