Question

Пожалуйста срочно!!! написать блок-схему и программу на языке паскаль посчитать сумму всех четных чисел от 1 до к определить является эта сумма четной или нечетной​

Answer 1

Ответ:

program p1

var

k, sum, i : longint;

a : array[1..100] of longint;

begin

readln(k);

for i:=1 to k do readln(a[i]);

sum:=0;

for i:=1 to k do sum:=sum+a[i];

if sum/2=0 then writeln(чётное);

else writeln(нечётное);

еnd.

Answer 2

Конечно, вот блок-схема и программа на языке Pascal, которые считают сумму всех четных чисел от 1 до заданного числа K и определяют, является ли эта сумма четной или нечетной.

Блок-схема:

yamlCopy code
+-------------------------+
|    Начало программы    |
+-------------------------+
          |
          v
     Ввод K
          |
          v
     Сумма = 0
          |
+-------------------------+
|      Пока K >= 1       |
+-------------------------+
          |
          v
     Если K четное:
          |
          v
     Сумма = Сумма + K
          |
          v
     К = К - 1
          |
          v
     Иначе:
          |
          v
     К = К - 1
          |
          v
+-------------------------+
|    Конец цикла         |
+-------------------------+
          |
          v
     Если Сумма четное:
          |
          v
     Вывод "Сумма четная"
          |
          v
     Иначе:
          |
          v
     Вывод "Сумма нечетная"
          |
          v
+-------------------------+
|    Конец программы     |
+-------------------------+

Программа на Pascal:

pascalCopy code
program SumOfEvenNumbers;

var
  K, Sum: integer;

begin
  write('Введите число K: ');
  readln(K);
  
  Sum := 0;

  while K >= 1 do
  begin
    if K mod 2 = 0 then
      Sum := Sum + K;
    K := K - 1;
  end;

  if Sum mod 2 = 0 then
    writeln('Сумма четная')
  else
    writeln('Сумма нечетная');
end.

Вы можете скопировать эту программу в среду Pascal и выполнить ее, чтобы узнать, является ли сумма четной или нечетной для заданного числа K.