Question

Помогите составить программу , вычисляющую сумму квадратов n чётных натуральных чисел ( сейчас прошли циклические алгоритмы, нужна и блок-схема)

Answer 1

Var n,a,i:integer;
s:longint;
begin
writeln('введите количество чисел');
readln(n);
a:=0; s:=0;
writeln('введите числа');
for i:=1 to n do begin
readln(a);
if a>10 then s:=s+a*a;
end;
if s=0 then writeln('положительных чисел нет') else writeln(s);
end.

Answer 2

Конечно, я могу помочь вам с этим! Вот программа для вычисления суммы квадратов n четных натуральных чисел:

markdownCopy code
1. Запросить у пользователя число n.
2. Инициализировать переменные sum и count, оба равны 0.
3. Инициализировать переменную num, равную 2.
4. Пока count < n, выполнять следующие шаги:
     - Прибавить к sum значение num * num.
     - Увеличить count на 1.
     - Увеличить num на 2.
5. Вывести значение переменной sum.

Это блок-схема для такой программы:

luaCopy code
          +-------+
    +---->| Ввод n|<------+
    |     +-------+       |
    |          |          |
    |          V          |
    |     +-------+       |
    |     |sum = 0|       |
    |     +-------+       |
    |          |          |
    |          V          |
    |     +--------+      |
    +---->|count = 0|      |
    |     +--------+      |
    |          |          |
    |          V          |
    |     +------+        |
    |     |num = 2|        |
    |     +------+        |
    |          |          |
    |          V          |
    |     +-------+       |
    +---->|count < n|       |
          +-------+       |
             |  N         |
             V  Y         |
          +------+        |
          |sum += num * num| 
          +------+        |
             |             |
             V             |
          +--------+       |
          |count += 1|       |
          +--------+       |
             |             |
             V             |
          +------+         |
          |num += 2|         |
          +------+         |
             |             |
             V             |
          +-------+        |
          |count < n|        |
          +-------+        |
             |  N         |
             V  Y         |
             |             |
             V             |
          +------+         |
          |Вывод sum|         |
          +------+

Эта программа будет запрашивать у пользователя число n и затем вычислять сумму квадратов n четных натуральных чисел, начиная с 2. Она будет прибавлять к sum значение num * num, затем увеличивать count и num на 1 и 2 соответственно. Это будет выполняться до тех пор, пока count не станет равным n. В конце программа выведет значение sum.