Сколько существует различных путей от точки А до точки Ж? 2. Между дачными посёлками А, Б, Б, Г, Д построены дороги, протяжённость которых (в километрах) приведена в таблице. Постройте схему, соответствующую этой таблице. Определите длину кратчайшего пути между пунктами А и В. Передвигаться можно только по дорогам, протяжённость которых указана в таблице.

👇

Ответ:

stone8r4

08.06.2022

хммм. ответ 20 вдвдвтыз втышылв. вовшвт вдвдвтв лащазыубвт аовшвлутв Хммм. Ответ 20 вдвдвтыз втышылв. Вовшвт вдвдвтв лащазыубвт аовшвлутв Хммм. Ответ 20 вдвдвтыз втышылв. Вовшвт вдвдвтв лащазыубвт аовшвлутв Хммм. Ответ 20 вдвдвтыз втышылв. Вовшвт вдвдвтв лащазыубвт аовшвлутв Хммм. Ответ 20 вдвдвтыз втышылв. Вовшвт вдвдвтв лащазыубвт аовшвлутв

4,4(47 оценок)

Ответ:

Школяяяра

08.06.2022

Советую спросить у учителя, списывать не хорошо
Нужно задуматься и это понадобится на экзамене
Я пишу это к тому чтоб вы задумывались о своём будущем и нетеряли время на поиски ответа
Начните работать и дайте мне 10 б мне тоже нужен ответ хахе

4,4(19 оценок)

Открыть все ответы

Ответ:

polina11111334944849

08.06.2022

Сначала код без комментариев:

Var
S:longint;
i:integer;
A:byte;

Begin
S:=0;
Repeat
   Read(A);
   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A;
Until A = 0;
WriteLn('S = ',S);
End.

Теперь объяснение каждой строки:

Var
S:longint;
i:integer;
A:byte; // В эту переменную будет вводится число с клавиатуры. Тип Byte может принимать значения от 0 до 255. Поэтому его как раз хватит.

Begin
S:=0; // Тут будет храниться сумма, поэтому переменную следует сперва обнулить.

Repeat // далее начинается цикл
   Read(A); // эта команда каждый раз считывает с клавы число, и записывает его в переменную A.

   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A; //тут проверяется 2 условия, и если они выполняются - к переменной S прибавляется значение переменной А
   1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (A mod 2 <>0)
   2 условие: Число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (A mod 7 = 0)

Until A = 0; // Цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (A = 0)

WriteLn('S = ',S); // Тут выводится искомая сумма
End.

4,7(70 оценок)

Ответ:

сонька177

08.06.2022

Var m : array[0..6] of Integer;
i,k,N : Integer;
Begin
For i:=0 to 6 do m[i]:=0;
Readln(N);
k:=6;
While N>0 do
Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
end;
For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.');
end.

Еще вариант:
Const
NN = 7;
money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
i,k,N : Integer;
Begin
For i:=1 to NN do m[i]:=0;
Readln(N);
k:=NN;
While N>0 do
Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
end;
For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.');
end.

4,7(42 оценок)

Это интересно:

Кулинария-и-гостеприимство

03.02.2020

Как использовать вафельницу: подробный гид по приготовлению вафель...

Компьютеры-и-электроника

15.02.2021

Как избавиться от Mystart.Incredibar.Com: советы от экспертов...

Компьютеры-и-электроника

05.09.2020

Как использовать контроллер Xbox 360 вместе с Windows...

Здоровье