Строковые и символьные данные даны натуральное число n, символы . выяснить верно ли, что среди символов имеются все буквы, входящие в слово 'оценка'. язык паскаль

Var s:string;i:byte;o,c,e,n,k,a:boolean;
begin
readln(s);
for i:=1 to length(s) do begin
if (s[i]='о') or (s[i]='О') then o:=true;
if (s[i]='ц') or (s[i]='Ц') then c:=true;
if (s[i]='е') or (s[i]='Е') then e:=true;
if (s[i]='н') or (s[i]='Н') then n:=true;
if (s[i]='к') or (s[i]='К') then k:=true;
if (s[i]='а') or (s[i]='А') then a:=true;
end;
if o and c and e and n and k and a then
writeln('ВЕРНО')
else writeln('НЕ ВЕРНО');
end.

1 - 3; 2 - 1; 3 - 5; 4-2; 5-4

Объяснение:

1 - 3

Тут сразу видно, что код бесполезный, как и все остальные 4 =D

Ну в общем переменной buf ты присваиваешь первый элемент массива, на место первого ставишь второй и на место второго - buf... Возвращаешь первый короче на место второго.

2 - 1

Тут у тебя есть какая-то строка x, длина которой измеряется встроенной функцией len. И выполняется цикл for, что для каждого символа этой строки при условии, что если i-ый элемент больше какой-то переменной max, то происходит "перезапись" переменной, что нам найти максимальное значения массива.

3 - 5

Тут грубо говоря аналогично максимуму, только находится минимум и выводится индекс методом index

4 - 2

Тут в самом начале уже стоит условие, что если i-ый элемент делится без остатка на 2 (т.е. четный) то идут манипуляции с перестановкой =D

5 - 4

Тут элементарно. Цикл прогоняют по количеству символов массива y, чтоб потом вызывать по индексу его элементы.

Модуль GrahpABC позволит вам побыть в роли художников-оформителей. Сначала все покажется очень трудным, но потом
Познакомьтесь с функциями, которые вам нарисовать точку, отрезок, окружность и прямоугольник.
procedure SetPixel(x,y,color: integer); - закрашивает один пиксел с координатами (x,y) цветом color (точка).

procedure Line(x1,y1,x2,y2: integer); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

procedure Circle(x,y,r: integer); - рисует окружность с центром в точке (x,y) и радиусом r.

procedure Rectangle(x1,y1,x2,y2: integer); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

procedure SetPenColor(color: integer); - устанавливает цвет пера, задаваемый параметром color.

function PenColor: integer; - возвращает текущий цвет пера.

procedure SetPenWidth(w: integer); - устанавливает ширину пера, равную w пикселам.

type ColorType=integer; - стандартные цвета задаются символическими константами:

clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый

clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный