Вот и ответ к вопросу о <span>басне Крылова " Волк и ягненок"</span>
1)const n=5; var a:array[1..n] of byte;k,i:integer;beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do readln(a[i]);for i:=1 to n doif a[i] div 10 > a[i] mod 10 then inc(k); write(k);end.
2)const n=5; var a,b:array[1..n] of byte;sr,max,k,i:integer;beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do a[i]:=random(100);for i:=1 to n do b[i]:=a[i];for i:=1 to n do max:=max+a[i];sr:=max div n;writeln('начальный массив');for i:=1 to n do writeln(a[i]);write('сред арифм= ',sr);writeln;for i:=1 to n do if sr> b[i] then b[i]:=0;for i:=1 to n do writeln(b[i]);end.
Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.
Сколько вершин? 31
Есть ли рёбра? Да
Есть ли направление? Нет
Все вершины соединены рёбрами? Да
Пояснение:
Вершины просто посчитать. Рёбра безусловно есть, они соединяют вершины. Направления нет (неориентированный граф, нет стрелочек на рёбрах). Все вершины соединены, нет изолированных, то есть граф связный.
Пожалуй больше ничего и не скажешь. Разве что такие графы называются "деревьями", в этом случае дерево двоичное. То есть один корень, и степени вершин неориентированного в данном случае дерева не превосходят 3. Этого в задании нет, однако можно отметить для общего развития.
На языке pascal ABC .NET:
var k:integer;
Begin
k:=1;
for var i:=1 to 9 do
if (i mod 2)=0 then else k:=k*i;
write(k);
end.