79. изобразите на схеме элементы, образующие и нав = {н, о, ч, к, а), с = {р, е, к, ај, d = {у, ч, е, н, и, к}. запишите все элементы составляющие следующиежества: 1) b vc2) в& с.3) b v c v d4) b & c & d.5) (b v c) & d6) (в & с) v d.7) (b v c) & (bvd)8) (b & с) v (b & d)​

1) {н, о, ч, к, а, р, е}

2) {к, а}

3) {н, о, ч, к, а, р, е, у, и}

4) {к, а}

5) {н, ч, к, е}

6) {у, ч, е, н, и, к}

7) {н, о, ч, к, а, е}

8) {к, а, ч, н}

Объяснение:

1{н, о, ч, к, а, р, е}

2) {к, а}

3) {н, о, ч, к, а, р, е, у, и}

4) {к, а}

5) {н, ч, к, е}

6) {у, ч, е, н, и, к}

7) {н, о, ч, к, а, е}

8) {к, а, ч, н}

1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.

ОК, всё это циклы.
1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример:
for a:=1 to 10 do //Цикл будет выполнен 10 раз
2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример:
for a:=10 to 1 do //Цикл будет выполнен 10 раз
3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример:
k:=0;
repeat
inc(k);
until k<9 //10 раз
4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл.
Пример:
k:=0;
while k<>10 do
inc(k); //10 раз