Нужно на паскаль написать программу, которая будет из данного ряда чисел (5, 4, 3, 5, 5, 5, 4) вычислять в столбец: 1) сколько 5 в данном ряду. 2) сколько 4 в данном ряду. 3) сколько 3 в данном ряду.

Если нужно только эти числа(5,4,3,5,5,5,4), то вот программа.
var b,c1,c2,c3:integer;
a: array [1..7] of integer;
i: byte;
begina[1]:=5;
a[2]:=4;
a[3]:=3;
a[4]:=5;
a[5]:=5;
a[6]:=5;
a[7]:=4;
for i:= 1 to 7 do

begin
case a[i] of
3: c1:=c1+1;
4: c2:=c2+1;
5: c3:=c3+1;
end;
end;
writeln('Количество чисел 5 в данном ряду=',c3);
writeln('Количество чисел 4 в данном ряду=',c2);
writeln('Количество чисел 3 в данном ряду=',c1);
end.

Если нужно только эти числа(5,4,3,5,5,5,4), то вот программа.var b,c1,c2,c3:integer;a: array [1..7] of integer;i: byte;begina[1]:=5;a[2]:=4;a[3]:=3;a[4]:=5;a[5]:=5;a[6]:=5;a[7]:=4;for i:= 1 to 7 do
begincase a[i] of3: c1:=c1+1;4: c2:=c2+1;5: c3:=c3+1;end;end;writeln('Количество чисел 5 в данном ряду=',c3);writeln('Количество чисел 4 в данном ряду=',c2);writeln('Количество чисел 3 в данном ряду=',c1);end.

Первая программа предназначена ТОЛЬКО для Pascal.ABC, в другой среде она работать не будет. Она самая короткая и простая. Метод Split разбивает исходную строку на слова по символу пробела и формирует динамический массив. Что бы мы ни вводили, мы всегда будем получать в результате то, что требовалось. (понятно, что если слов будет меньше трех, будем получать то, что ввели).

var
  s: string;
  ms: array of string;

begin
  Write('Введите три слова через пробел: ');
  Readln(s);
  ms := s.Split(' ');
  Writeln(ms[0] + ' ' + ms[2] + ' ' + ms[1])
end.

Вторая программа реализуется в любой версии Pascal. Её недостаток в том, что она правильно работает только тогда, когда введена фраза из трех слов, разделенных пробелом. Это простейший линейный алгоритм.

var
  s, s1, s2, s3: string;
  n, p: integer;

begin
  Write('Введите три слова через пробел: ');
  Readln(s);
  n := Length(s);
  p := Pos(' ', s);
  s1 := Copy(s, 1, p - 1);
  s3 := Copy(s, p + 1, n - p);
  p := Pos(' ', s3);
  s2 := Copy(s3, 1, p - 1);
  n := Length(s3);
  s3 := Copy(s3, p + 1, n - p);
  Writeln(s1 + ' ' + s3 + ' ' + s2)
end.

Третья программа также реализуема в любой версии Pascal и содержит "классический" работы со строкой, состоящий в последовательном анализе каждого символа. Имеет защиту на случай, если слов будет больше или меньше трех.

var
  s: string;
  ms: array[1..3] of string;
  i, n, p, j: integer;

begin
  Write('Введите три слова через пробел: ');
  Readln(s);
  {
  Алгоритм: Просматриваем все символы строки начиная с позиции p
  и при обнаружении пробела в позиции q заносим в массив очередное слово,
  копируя q-p символов, начиная с p. Затем заносим в p значение q+1
  и продолжаем просмотр. При старте принимаем p=1
  }
  p := 1; j := 0; n := Length(s);
  for i := 1 to n do
    if s[i] = ' ' then
    begin
      j := j + 1;
      if j <= 3 then begin{ если введено больше двух пробелов }
        ms[j] := Copy(s, p, i - p);
        p := i + 1
      end
    end;
  if j < 3 then ms[3] := Copy(s, p, n - p + 1);
  Writeln(ms[1] + ' ' + ms[3] + ' ' + ms[2])
end.

Все три программы опробованы и результаты их работы одинаковы:

Введите три слова через пробел: Зебра полосатая лошадь
Зебра лошадь полосатая

Презентация о кактусе

Объяснение:

Кактусы – это многолетние растения, которые обладают сочными, утолщенными и мясистыми стеблями. Они покрыты колючками, щетинками или волосками. У большинства видов кактуса плоды ягодообразные, мясистые, у некоторых даже съедобные. Из-за того, что растения преимущественно произрастают в пустыне, они лишены листвы. Листья превратились в колючки, вода стала накапливаться в массивном толстом стебле. Кстати о колючках. Они имеют разную форму – плоскую, круглую, прямую или крючковидную, пушистую или гладкую. Хотя у некоторых видов семейства есть листья. Так, у перескии, произрастающей в Южной Америке, Мексике, Индии имеется древесный стебель, листья и… колючки. У других растений, опунций, есть маленькие листья длиной 2-5 мм. Внешне они напоминают шило и очень сочные. Листья прорастают весной и через короткое время высыхают и опадают. Кактусы накапливают даже малую часть воды, которая попала в почву. Молодые побеги могут уловить влагу даже с воздуха. Потом они опадают и укореняются. Самые большие кактусы могут накопить до 2000 литров воды. А чтобы меньше испарялось влаги, растения покрылись толстой зеленой кожицей, а поверх нее — волосяной покров или слой воска.