1.
var a:array[1..100] of integer;
n,i:integer;
begin
write('N = ');readln(n);
writeln('Полученный массив:');
for i:=1 to n do a[i]:=2*i-1;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
N = 5
Полученный массив:
1 3 5 7 9
2.
const n=15;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
write('K = '); readln(k);
for i:=1 to n div k do write(a[i*k]:3);
writeln;
end.
Пример:
Массив A:
6 6 8 14 15 5 18 6 18 1 17 6 3 19 2
K = 3
8 5 18 6 2
«Alt+[Shift]+Tab» — переключение между окнами;
«Alt+F4» — закрыть активное окно;
«Alt+Space (пробел)» — открытие системного меню окна. С помощью него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без помощи мыши;
«Alt+Shift» или «Ctrl+Shift» — переключить язык;
«Ctrl+Alt+Delete» — открытие окна «Безопасность Windows»;
«Win» — открытие/закрытие меню «Пуск»;
«Ctrl+Esc» — открытие/закрытие меню «Пуск»;
«Win+D» — свернуть/восстановить все окна, включая диалоговые;
«Win+E» — открытие программы «Проводник»;
«Win+R» — открытие окна «Запуск программы» («Пуск» --> «Выполнить…»);
«Win+F» — открытие окна для поиска;
«Win+L» — заблокировать компьютер;
«Win+M» — сворачивает все окна, кроме диалоговых;
«Win+Pause/Break» — открытие окна «Система»;
«Ctrl+Shift+Esc» — открытие окна «Диспетчер задач»;
«Print Screen» — поместить снимок всего экрана в буфер обмена. В MS-DOS использовалась для вывода на принтер содержимого экрана;
«Alt+Print Screen» — поместить снимок активного окна в буфер обмена;
Var
s:string;
i,n:integer;
begin
Write('Исходное слово: '); Readln(s);
for i:=Length(s) downto 1 do
if s[i] in ['а','А'] then Delete(s,i,1);
Writeln('Результат: ',s)
end.
<em><u>Тестовое решение:</u></em>
Исходное слово: Абракадабра!!!
Результат: бркдбр!!!