TatyanaVladimirovich
?>

Укажите записи следующего алгоритма: алг посадка дереваначвыкопать в земле ямкуопустить в ямку саженецзасыпать ямку землейполить саженец водойкон

Информатика

Ответы

Кашихина

Линейный  алгоритм

Объяснение:

Поскольку твой алгоритм содержит прямой, последовательный набор шагов и в нем нет ветвления ( условия, при котором последует выполнение/невыполнение действия), твой алгоритм - линейный

Valerevna
1)
#include <stdio.h>
#include <stdlib.h>

int sover (int n)
{
  int sum = 0;
  for (int i = 1; i<=n/2; i++)
    if (n%i==0) sum+=i;
  if (sum==n)
    return 1;
  else return 0;
}
int main()
{
  int n;
  printf ("N = ");
  scanf ("%d",&n);
  if (sover(n)==1)
    printf ("Sovershennoe");
  else printf ("Ne sovershennoe");
  printf("\n");
  system ("PAUSE");
  return 0;
}

2)
#include <stdio.h>
#include <stdlib.h>

int main()
{
  for (int i = 1; i<=5; i++)
  {
    for (int j = 1; j<=5-i+1; j++)
      printf ("%d ",5+i-1);
    printf ("\n");
  }
  system ("PAUSE");
  return 0;
}
maisa1991
Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Укажите записи следующего алгоритма: алг посадка дереваначвыкопать в земле ямкуопустить в ямку саженецзасыпать ямку землейполить саженец водойкон
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Михаил1121
ivanjeka87
vera141187
Bi-1704
bondarev05071962
dm1trviktor585
ВладимировичСтанислав
Pastel-sova
Dmitriy2211104
brovkinay
rezh2009766
игнатова_Сергей1228
fialkaflowers77
restkof
Сергеевич1386