3 года назад

Ответьте плиз. Задание на фото

Знания

Информатика

1 ответ:

Тутти-Фрутти [12]3 года назад

0 0

Ответ: 12

Как-то так... )))

Смотри картинку...

Каждой вершине, начиная с начальной (A), поставим индекс, равный количеству путей, которыми можно попасть в эту вершину. Для вершины A (начало пути) индекс всегда равен 1 (в начало пути можно попасть единственным образом – никуда не двигаясь).

Теперь сформулируем правило: индекс вершины равен сумме индексов его предков. Исходя из этого индекс Б равен 1 (предок у Б один – вершина A).

Индекс В равен 3 (предков у В три – вершина A, вершина Б и вершина Г; 1 + 1 + 1 = 3).

И т.д.

Читайте также

Ребят,вот инфу задали,я чет не программист,помогите пжлст))

lulu3110

Var a:real;
begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
end.

0 0

4 года назад

75и 72 в двоичную систему счисления

фя12 [1]

75 это 1001011 72 это 1001000

0 0

3 года назад

Даны два натуральных числа n и m . Если одно из них делится на другое нацело , вывести 1 , иначе вывести любое другое целое числ

Elenapr

import random
a,b = map(int,(input('input a,b ').split()))
if a % b == 0 or b % a ==0:
print('1')
else:
print(random.randint(10,100))

0 0

4 года назад

Дан целочисленный массив из 30 элементов,.Элементы могут принимать значения от 0 до 100-баллы, полученные на ЕГЭ.Опишите на русс

Вася Я

Const N=30;
var A: array [1..N] of integer ;
i, x, y:integer;
s: real ;
begin
for i:=1 to N do readln (A [i]);
x:=0;y:=0;
for i:=1 to N do
if a[i]>20 then begin
inc(x);
y:=y+a[i];
end;
s:=y/x;
writeln(s);end.

0 0

4 года назад

Составьте программу, в которой значение переменной с вычисляется по формуле: а + Ь, если а — нечетное (a mod 2 = 1), и а*Ь, если

Ulija555

Var

a,b,s:integer;

Begin

readln (a,b);

if (a mod 2 = 1)

then s := a + b

else if (a mod 2 = 0)

then s := a * b;

write(s);

End.

0 0

1 год назад