Соберите блок-схему нахождения в переменной p произведения целых чётных чисел на отрезке от 3 до m(включая m),где m>2.Перенесите записи в рамки,соответствующие нужным блокам блок-схемы

по информатике, Реализовать программу следующего задания не менее чем двумя

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

отрицательных элементов по информатике, Реализовать программу следующего задания не менее чем двумя

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

отрицательных элементов.

Объяснение:

Цикл foruses Math;var    i: integer;    sum: real;begin    for i := 1 to 100 do        Sum := Sum + Sqr(i);    Writeln(Sum);end.Цикл while (предусловие)uses Math;var    i: integer;    sum: real;begin    while i <= 100 do        begin            Sum := Sum + Sqr(i);            i := i + 1;        end;    Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var    i: integer;    sum: real;begin    repeat        i := i + 1;        Sum := Sum + Sqr(i);    until i >= 100;    Writeln(Sum);end.