Это же информатика, а в компьютере задача решается либо прямым перебором всех возможных вариантов (и выбора наименьшего из всех ответов), либо в целях ускорения расчета применением логических упрощений (но после этого опять производится прямой перебор оставшихся вариантов).
По условию задачи из пункта А в B, а также из пункта Е в F можно добраться только по одной дороге, значить в сумме это займет 3+2=5 км.
А дальше алгоритм разветвляется и проверяется условия:
1. B-С-E=2+5=7 км
2. B-D-E=3+3=6 км
3. В-Е=7 км,
отсюда следует, что наикратчайший путь под номером 2.
Все суммируем: 5+6=11 км (в конце проверяем, не больше ли он прямой дороги из А в F)
Значит и ответ 11 км
1.
var a:array[1..100] of integer;
n,i:integer;
begin
write('N = ');readln(n);
writeln('Полученный массив:');
for i:=1 to n do a[i]:=2*i-1;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
N = 5
Полученный массив:
1 3 5 7 9
2.
const n=15;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
write('K = '); readln(k);
for i:=1 to n div k do write(a[i*k]:3);
writeln;
end.
Пример:
Массив A:
6 6 8 14 15 5 18 6 18 1 17 6 3 19 2
K = 3
8 5 18 6 2
Я думаю 3
...........................
var x,y: real;
begin
readln(x,y);
if (x>=-6)and(x<=-3)and(y>=-3)and(y<=2)or
(x>=-6)and(x<=-1)and(y>=2)and(y<=7)
then writeln('Yes') else writeln('No');
end.
Пример:
-3 3
Yes
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>