1. дано n чисел. найти колличество тех, которые делятся на 5, и не делятся на 7. 2. найти квадраты всех отрицательных чисел среди n заданных. 3. найти количество чисел, среди n введенных,которые имеют нечетные порядковые номера, а сами являются четными числам. 4. напишите программу для вычисления суммы: - 1*1! +2*2! +3*3! ++n*n! - 1*3+3*5+5*7+(n+2) - 1+11+111++111+1-n слагаемых. , написать программы для паскаля, нужно. заранее .

Первая (N - количество чисел в исходной последовательности):

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number mod 5 = 0) and (number mod 7 <> 0) then
            count := count + 1;
    end;
    writeln('Count: ',count);
    readln;
end.

Вторая:

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number < 0) then
            writeln('Square of ',number,' equals ',number*number);
    end;
    readln;
end.