Берілген блоктың міндетін анықтаныз​

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

var

i,n: integer;

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

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

специалист сельского хозяйства с высшим образованием, всесторонними знаниями в области агрономии.

уличный танец, одно из течений хип-хоп культуры.

непродолжительная по времени художественно составленная последовательность кадров.

единица измерения расстояния в некоторых европейских неметрических системах мер

светозащитные устройства, состоящие из вертикальных или горизонтальных пластин.

морская рыба семейства .

ехнические приёмы получения движущихся изображений, иллюзий движения и/или изменения формы объектов (морфинг) с нескольких или множества неподвижных изображений и сцен.

сладкое блюдо кухни.

универсальный прил. 1) охватывающий всё или многое; всеобъемлющий. 2) разными знаниями, навыками; разносторонний. 3) выполняющий разнообразные функции.