const n = 10;
var
mas: array [1..n] of integer;
i,j,h:integer;
begin
randomize;
for i := 1 to n do
begin
mas[i] := random(3);
write(' ',mas[i],' ');
end;
writeln();
for i := 1 to n - 1 do
for j := 1 to n - i do
if(mas[j] = 0) then
begin
h := mas[j];
mas[j] := mas[j + 1];
mas[j + 1] := h;
end;
for i := 1 to n do
write(' ',mas[i],' ');
end.
Ответ:
Презентация о кактусе
Объяснение:
Кактусы – это многолетние растения, которые обладают сочными, утолщенными и мясистыми стеблями. Они покрыты колючками, щетинками или волосками. У большинства видов кактуса плоды ягодообразные, мясистые, у некоторых даже съедобные. Из-за того, что растения преимущественно произрастают в пустыне, они лишены листвы. Листья превратились в колючки, вода стала накапливаться в массивном толстом стебле. Кстати о колючках. Они имеют разную форму – плоскую, круглую, прямую или крючковидную, пушистую или гладкую. Хотя у некоторых видов семейства есть листья. Так, у перескии, произрастающей в Южной Америке, Мексике, Индии имеется древесный стебель, листья и… колючки. У других растений, опунций, есть маленькие листья длиной 2-5 мм. Внешне они напоминают шило и очень сочные. Листья прорастают весной и через короткое время высыхают и опадают. Кактусы накапливают даже малую часть воды, которая попала в почву. Молодые побеги могут уловить влагу даже с воздуха. Потом они опадают и укореняются. Самые большие кактусы могут накопить до 2000 литров воды. А чтобы меньше испарялось влаги, растения покрылись толстой зеленой кожицей, а поверх нее — волосяной покров или слой воска.
А переводишь в двоичную с\с =11110111
в тоже самое в двоичную с\с= 11111001
и смотришь какое подходит
ответ 4, проверяй))
Var
i,k,s:integer;
begin
k:=0; s:=0;
i:=7;
Writeln('Числа на интервале [7;100], кратные 7:');
while i<=100 do begin
Write(i,' ');
s:=s+i; Inc(k);
i:=i+7
end;
Writeln;
Writeln('Сумма этих чисел равна ',s,', количество равно ',k);
end.
Результат выполнения программы
Числа на интервале [7;100], кратные 7:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
Сумма этих чисел равна 735, количество равно 14