Решите и составьте к ним блок схемы, . язык - pascalabc 1. дана последовательность из n чисел. вычислить сумму элементов, кратных 6 и оканчивающихся на 4. предусмотреть вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют. 2. дана последовательность чисел, оканчивающихся на 0. вычислить наибольший положительный элемент, кратных 3. предусмотреть вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют.

ввод нуля останавливает программу
(исходя из условия оканчивающихся на 0)

var i,max,fl: integer;
begin
i:=1;
max:=0;
fl:=0;
       while(i<>0) do
       begin
          readln(i);
          if((i mod 3=0)and(i>max)) then
              begin
              max:=i;
              fl:=1;
              end;
          end;
if (fl=1) then writeln('Максимальный =',max);
if (fl=0) then writeln('нет');
end.
Тестовый ввод
3
4
9
8
6
0

Вывод
максимальный = 9

Рекомендуется использовать формулу мальтуса, изменения числа рыб  n= k*n-q*n*n если за начальное количество рыб принять n0,то через год рыб в пруду будет n1=n0+k*n0-q*n0*n0,через два года n2=n1+k*n1-q*n1*n1 в таблице excel в ячейку a1 введите значение к=1,в ячейку b1 значение q=0,01,в ячейку с1 значение n0=100, в ячейку в2 формулу =c1+a1*c1-b1*c1*c1 (это количество рыб за 1 год) , в ячейку в3 формулу =b2+$a$1*b2-$b$1*b2*b2(количество рыб за 2 год) , скопируйте формулу с ячейки в3 до ячейки в11. изменяйте значение ячейки а1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.

Каждая из компонент связности должна быть кликой (иначе говоря, каждые две вершины в одной компоненте связности должны быть связаны ребром). Если в i-ой компоненте связности вершин, то общее число рёбер будет суммой по всем компонентам связности:



Требуется найти максимум этого выражения (т.е. на самом деле - максимум суммы квадратов) при условии, что сумма всех ni равна N и ni - натуральные числа.

Если K = 1, то всё очевидно - ответ N(N - 1)/2. Пусть K > 1.

Предположим, n1 <= n2 <= ... <= nK - набор чисел, для которых достигается максимум, и n1 > 1. Уменьшим число вершин в первой компоненте связности до 1, а оставшиеся вершины "перекинем" в K-ую компоненту связности. Вычислим, как изменится сумма квадратов:

Поскольку по предположению n1 > 1 (тогда и nK > 1), то сумма квадратов увеличится, что противоречит предположению о том, что на выбранном изначально наборе достигается максимум. Значит, максимум достигается, если наименьшая по размеру компонента связности - изолированная вершина. Выкинем эту компоненту связности, останутся K - 1 компонента связности и N - 1 вершина. Будем продолжать так делать, пока не останется одна вершина, тогда получится, что во всех компонентах связности кроме последней должно быть по одной вершине.

Итак, должно выполняться


Подставив в исходную формулу, получаем


Это и есть ответ.