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.