1. набрать текст по образцу.
город владикавказ - столица республики северная осетия. расположен в центре
северного кавказа, на берегу реки терек. с 1931г. по 1990г. город носил
название орджоникидзе. в 1942 г. у стен владикавказа была выиграна битва за
кавказ - одна из ключевых битв великой отечественной войны. после взятия
ростова-на-дону связь кавказа с европейской частью россии была возможна
только морем (через волгу или каспий) и через железнодорожные пути сальск-
сталинград. гитлер планировал перерезать эти пути сообщения, взять кавказ и.
тем самым лишить важных ресурсов: северный кавказ и баку были
основными источниками нефти для всего . кавказ и кубань - главными
источниками зерна и местонахождением запасов стратегического сырья, 25
октября 1942 г. противник вышел к орджоникидзе, но в начале ноября был
разгромлен и отброшен к северу. так провалилась -фашистская операция
по захвату кавказа и продвижению на ближний восток. таким образом у стен
владикавказа в 1942-1943 гг. началось масштабное отступление вражеской
армии. в 2007 году городу владикавказу присвоено почетное звание «город
воинской славы». на монете, выпущенной в честь владикавказа изображен
герб города - на геральдическом щите, увенчанном большой
императорской короной, изображены горы, в центре - запертые ворота, а ниже
ключ с прорезью в форме креста, как символ веры, твердости и власти.
2. разбейте текст на абзацы
3. выделите первый абзац и сделайте его полужирным начертанием
4. выделите второй абзац, поменяйте ему шрифт и размер
5. третий абзац сделайте начертанием курсив и подчеркнутым
6. придумайте заголовок для текста
7. сохранить документ со своей фамилией на рабочем столе
(«практическая работа №1»)
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении