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

На двух складах было 210,2 тонн картофеля. после того, как с первого продали 24,5 т, а со второго 10,8 т, на первом складе картофеля стало в два раза больше, чем на втором. сколько тонн картофеля было на каждом складе первоначально

👇
Ответ:
altynbekova2003
altynbekova2003
15.05.2023
Пусть х - первоначальная масса картофеля на 1-м складе.
Тогда 210,2 - первоначальна масса картофеля на 2-м складе.
х-24,5 - масса картофеля на 1-м складе после продажи.
210,2-х-10,8 - масса картофеля на 2-м складе после продажи.
Уравнение:
х-24,5 = 2(210,2-х-10,8)
Решение:
х-24,5=2(199,4-х)
х-24,5=398,8-2х
х+2х = 398,8+24,5
3х=423,3
х=423,3:3
х=141,1 - первоначальная масса картофеля на 1-м складе.
210,2-х=210,2-141,1= 69,1 - первоначальная масса масса картофеля на 2-м складе.
4,6(98 оценок)
Открыть все ответы
Ответ:
rootiopa2
rootiopa2
15.05.2023
Ну и сюда скину. Вдруг не заметишь)
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.
4,4(95 оценок)
Ответ:
jybais228
jybais228
15.05.2023
Ну и сюда скину. Вдруг не заметишь)
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.
4,6(9 оценок)
Это интересно:
Новые ответы от MOGZ: Математика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ