Циклы. Базовые алгоритмы.

Сумма чисел  на промежутке по условию.

read(a, b);

sum := 0;

For i := a to b do

  sum := sum + i;

write(sum);

 

Количество чисел  на промежутке по условию.

read(a, b);

count := 0;

For i := a to b do

  count := count + 1;

write(count);

 

Ввод N чисел. Сумма чисел по условию.

read(N);

sum := 0;

For i := 1 to N do

  begin

      read(a);

      if a mod 2 = 0 then

          sum := sum + a;

  end;

write(sum);

 

Ввод N чисел. Количество чисел по условию.

read(N);

count := 0;

For i := 1 to N do

  begin

      read(a);

      if a mod 2 = 0 then

          count := count + 1;

  end;

write(count);

 


Ввод N чисел. Среднее арифметическое.

read(N);

sum := 0;

count := 0;

For i := 1 to N do

  begin

    read(a);

    if a mod 2 = 0 then begin

        sum := sum + a;

        count := count + 1

    end;

  end;

if count = 0 then write('Таких чисел нет')

  else

      begin

        sr_ar := sum / count;

        write(sr_ar);

      end;

 

Ввод N чисел. Минимум, максимум.

// a  [X .. Y]

read(N);

min := Y + 1;

max := X - 1;

For i := 1 to N do

  begin

    read(a);

    if a > max then max := a;

    if a < min then min := a;

  end;

write(min,' ',max);

 

Ввод чисел до 0. Сумма чисел по условию.

sum := 0;

read(a);

while a <> o do

  begin

    if a mod 2 = 0 then

        sum := sum + a;

    read(a);

  end;

write(sum);

 

Ввод чисел до 0. Количество чисел по условию.

count := 0;

read(a);

while a <> o do

  begin

    if a mod 2 = 0 then

        count := count + 1;

    read(a);

  end;

write(count);

 

Ввод чисел до 0. Среднее арифметическое.

count := 0;

sum := 0;

read(a);

while a <> 0 do

  begin

      if a mod 2 = 0 then

          begin

            count := count + 1;

            sum := sum + a;

          end;

      read(a);

  end;

if count = 0 then write('Таких чисел нет')

  else

      begin

          sr_ar := sum / count;

          write(sr_ar);

      end;

 

Возведение целого числа в целую степень.

read(a, b);

degree := 1;

for i := 1 to b do

  degree := degree * a;

write(degree);

     

 

Последнее изменение: Среда, 8 Ноябрь 2017, 16:31