1 «легкая конструкция».
космические путешествия - опасные предприятия. поэтому корабль, который
планировал построить василий для своего путешествия, проектировался
надежный. вася решил, что для обеспечения бесперебойного электропитания
приборов корабля необходимо соединить все имеющиеся на корабле
узлы, по принципу "каждый с каждым". но после монтажа всего
электрооборудования вес космического корабля оказался слишком велик.
обратившись за к экспертам василий выяснил, что большая часть
проводов совершенно не участвует в процессе электроснабжения. ток в цепи идет по
пути наименьшего сопротивления. поэтому большую часть проводов можно смело
обрезать.
василию решить, какие провода нужно оставить в цепи, чтобы ток
проходил через все узлы, но при этом сопротивление в цепи было минимальным.
формат входных данных: в первой строке программе подается целое число n -
количество узловых точек цепи (2< =n< 100). в следующих n строках вводится n
значений сопротивления на участках цепи, соединяющих i-ый узел со всеми другими.
значение сопротивления на каждом участке ri положительное число не
превосходящее 100. числом 0 обозначен участок цепи соединяющий i-ый узел с
самим собой. цепь начинается от источника - узел с номером 0.
формат выходных данных: программа должна вывести строку, содержащую
последовательность узлов, которые образуют замкнутую цепь, с минимальным
сопротивлением, начиная от источника и заканчивая источником.
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
var i,j,n:longint;
f:boolean;
begin
writeln('Введите число');
readln(n);
if n<2 then writeln('Простых делителей нет')
else
begin
write('Число ',n,' ','= 1');
for i:=2 to n do
if n mod i=0 then
begin
f:=true;
j:=2;
while f and(j<=round(sqrt(i/2)))do
begin
if i mod j=0 then f:=false
else j:=j+1;
end;
if f then write('*',i);
end;
end;
end.
Тестовое решение:
Введите число
2345
Число 2345 = 1*5*7*35*67