Вариант 1 1 Дано слово, состоящее из четного числа букв. Вывести на экран его
первую половину, не используя оператор цикла.
2 Из слова яблоко путем "вырезок" и "склеек" его букв получить слова
блок и око
3 Дано слово. Добавить к нему в начале и конце столько звездочек,
сколько букв в этом слове.
4 Дано предложение. Определить число букв о в нем.
5 Дано предложение. Заменить в нем все вхождения буквосочетания
бит на рог.
6 Дано слово из четного числа букв. Поменять местами его половины
следующим : первую букву поменять с последней, вторую
— с предпоследней и т. д.
Pascal
var
ar: array of integer;
i, j, a, b, k, n :integer;
begin
(* Дан массив целых чисел (n = 20), *)
(* заполненный случайным образом числами из промежутка [-45, 95].*)
randomize;
n:=20;
setlength(ar, n);
for i := 0 to n-1 do begin
ar[i]:= random(140)-45;
write(ar[i],' ');
end;
writeln;
(* Удалить из него все элементы, кратные 7 и *)
(* принадлежащие промежутку [a, b] (a и b вводить с клавиатуры)*)
writeln('введите диапазон [a,b]');
readln(a,b);
i:=0;
while i <= n-1 do
if (ar[i] mod 7 = 0) and (ar[i]>=a) and (ar[i]<=b)then begin
for j := i+1 to n - 1 do
ar[j-1] := ar[j];
n := n - 1
end
else
inc(i);
setlength(ar, n);
for i := 0 to n-1 do begin
write(ar[i],' ');
end;
writeln;
(* Вставить число k между всеми соседними элементами, которые образуют пару *)
(* элементов с одинаковыми знаками k вводить с клавиатуры).*)
writeln('введите k');
readln(k);
i := n - 1;
while i > 0 do begin
if ar[i]*ar[i-1]>0 then begin
inc(n);
SetLength(ar, n);
for j := n - 1 downto i do
ar[j] := ar[j-1];
ar[i] := k;
end;
dec(i);
end;
for i := 0 to n-1 do
write(ar[i],' ');
end.
Const
n=10;
Var
ar:array[1..n] of integer;
k,i,c:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(9);
write(ar[i]:4);
end;
writeln;
write('Enter index:');
readln(k);
if (k=1) or (n=1) then
begin
writeln('Mwahahahaha(no)');
exit;
end;
c:=ar[k+1];
ar[k+1]:=ar[k-1];
ar[k-1]:=c;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array:
1 8 4 2 8 5 8 7 1 8
Enter index:3
Final array:
1 2 4 8 8 5 8 7 1 8