М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lefuxetube
lefuxetube
31.08.2020 07:14 •  Информатика

Мост через реку стоит на 15 опорах, обозначим их буквами латинского алфавита от а до о. необходимо произвести ремонт опор моста, при разработке проекта ремонта была определена стоимость ремонта каждой опоры. опора: a, b, c, d, e, f, g, h, i, j, k, l, m, n, o стоимость ремонта: 10, 5, 20, 10, 30, 40, 30, 30, 30, 50, 100, 2, 10, 3, 20 (цифры стоят по порядку, соответствуют порядку букв - a-10 и т.д.) для того, чтобы мост был надежным, можно отремонтировать только часть опор, но с соблюдением следующих условий: 1. крайние опоры (а и о) должны быть отремонтированы. 2. не должно остаться двух стоящих рядом неотремонтированных опор. составьте план ремонта моста, при котором мост будет надежным, то есть будут выполнены перечисленные выше условия,а стоимость ремонта будет минимальной. , ! завтра сдавать !

👇
Ответ:
voskoboynikova1
voskoboynikova1
31.08.2020
A B D F H J L N O =170
4,4(16 оценок)
Открыть все ответы
Ответ:
Сat856142555
Сat856142555
31.08.2020
Var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>-2.4) and (x<5.7) then f:=sqr(x)
  else f:=4;
  Writeln('F=',f)
end.

var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>0.2) and (x<0.9) then f:=sin(x)
  else f:=1;
  Writeln('F=',f)
end.

var
  a,b,c:real;
begin
  Write('Введите три числа: '); Readln(a,b,c);
  Write('Условие ',a,'<',b,'<',c);
  if (b>a) and (b<c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.');
  Write('Условие ',b,'>',a,'>',c);
  if (a<b) and (a>c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.')
end.
4,5(9 оценок)
Ответ:
Arukaa2087
Arukaa2087
31.08.2020
№1

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.

№2

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.

№3

var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.
4,6(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ