Предмет: Математика, автор: dubrovina99964

С одного опытного участка школьники собрали 4 мешка картофеля,по 50 кг.,в каждом,а со второго на 110 кг.,больше,чем с первого. Сколько кг., картофеля школьники собрали с двух учвстков

Ответы

Автор ответа: katy8515

1

1)4*50=200(кг)-во всех мешках
2)200+110=310(кг)-со 2 участка
3)200+310=510(кг)-собрали с 2 участков
ответ: с 2 участков собрали 510кг картофиля

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: evseevsergei102

1. Снежная зима любимая пора детей.
2. Везде было пусто в степи за рекой по дорогам.
3. На туманной реке плещутся и кричат гуси.
4. Торопитесь ребята на урок!
5. Расскажи ты мне про себя сказал он.
6. Солнце уже закатилось и теперь из-за каждого дерева выглядывала темнота.
7. Была зима но все последние дни стояла оттепель.
8. Дорога шла через поляну где росла сосна
3. Произвести синтаксический разбор предложений.
1. Осень смывает холодным дождём пёстрый убор листьев.
Даю 25баллов!!!!!!!

5 лет назад

Предмет: Физика, автор: stepamirosnicenko81

Вырази атмосферное давление в паскалях ответ округли до десятых 812 мм рт. ст.=

Если 1мм рт. ст.=133,3 Па

5 лет назад

Предмет: История, автор: ivkatya09

2)Каким по счету был русский князь Святослав.

5 лет назад

Предмет: Химия, автор: alpysbaevbolat

при заимодействии 58.5г бензола с 120г. Брома образуется бромбензол. Найдите его массу.
Формула
m(Br2)=120г
m(C6H6)=58.5г
Найти: m(C6H6Br)

8 лет назад

Предмет: Информатика, автор: mrqeiv

Перевести код из Pascal в C, C++ или С#:
program PrResh;
///////////////Подключение графического модуля///////////////
var
n, m, r: Integer;
A: array [1..100, 1..100] of Real;
o: char;
w: text;
///////////////Процедура ввода значений///////////////
procedure Vvod(n, m: integer);
var
i, j: integer;
begin
assign (w, 'PrResh.txt');
rewrite (w);
for i := 1 to n do
begin
for j := 1 to m do
begin
Write('A[', i, ',', j, ']=');
Read(A[i, j]);
end;
end;
writeln('Матрица:');
writeln(w, 'Матрица:');
for i := 1 to n do
begin
for j := 1 to m do
begin
write(A[i, j], ' ');
write(w, A[i, j], ' ');
end;
writeln;
writeln(w);
end;
writeln(w);
close(w);
end;
///////////////Критерий Сэвиджа///////////////
procedure Sevi(n, m: integer);
var
B: array [1..100] of real;
Q: array [1..100, 1..100] of real;
i, j: integer;
c: real;
begin
assign (w, 'PrResh.txt');
append(w);
writeln(w, 'Критерий Сэвиджа.');
writeln(w, 'Наибольшее значение каждого столбца.');
for j := 1 to n do
begin
c := A[1, j];
for i := 1 to m do
begin
if A[i, j] > c then
c := A[i, j];
end;
B[j] := c;
writeln(w, 'Значение ', j, ' столбца = ', B[j]);
end;
writeln(w, 'Вычтем из наибольшего значения столбца, каждое значение столбца.');
writeln(w, 'Сформируем новую матрицу из полученных значений.');
for i := 1 to m do
begin
for j := 1 to n do
begin
Q[i, j] := B[j] - A[i, j];
write(w, Q[i,j], ' ');
end;
writeln(w);
end;
writeln(w, 'Наибольшее значение каждой строки.');
for i := 1 to n do
begin
c := Q[i, 1];
for j := 1 to m do
begin
if Q[i, j] > c then
c := Q[i, j];
end;
B[i] := c;
writeln(w, 'Значение ', i, ' строки = ', B[i]);
end;
for i := 1 to n do
begin
Writeln('B[', i, ']=', B[i]);
end;
c := B[1];
for i := 1 to n do
begin
if B[i] < c then
c := B[i];
end;
writeln('Ответ:');
writeln(w, 'Ответ:');
for i := 1 to n do
begin
if B[i] = c then
begin
writeln('B[', i, ']=', B[i]);
writeln(w, 'E', i,'=', B[i]);
end;
end;
close(w);
end;
///////////////Критерий Гермейера///////////////
procedure Ger(n, m: integer);
var
i, j : integer;
u:real;
V1, V2: array [1..100, 1..100] of real;
q, B: array [1..100] of real;
c: real;
begin
assign (w, 'PrResh.txt');
append(w);
writeln(w, 'Критерий Гермейера.');
Writeln('Для решения необходимы сведенья о вероятности принятия каждого решения.');
Writeln(w, 'Вероятности принятия решения:');
Readln (u);
for j := 1 to m do
begin
q[j]:=u;
//Write('q', j, '=');
//Readln(q[j]);
Write(w, 'q', j, ' = ', q[j], ' ');
end;
writeln(w);
c := A[1, 1];
for i := 1 to n do
begin
for j := 1 to m do
begin
if A[i, j] > c then
c := A[i, j];
end;
end;
writeln(w, 'Наибольшее значение в матрице = ', c);
c := c + 1;
writeln(w, 'Необходимо из каждого элемента матрицы вычесть ', c);
writeln(w, 'Полученная матрица:');
for i := 1 to n do
begin
for j := 1 to m do
begin
V1[i, j] := A[i, j] - c;
write(w, V1[i,j], ' ');
V2[i, j] := V1[i, j] * q[j];
end;
writeln(w);
end;
writeln(w, 'Умножаем каждый элемент матрицы на соответствующую вероятность.');
writeln(w, 'Выбираем наименьший результат каждой строки.');
for i := 1 to n do
begin
c := V2[i, 1];
for j := 1 to m do
begin
if V2[i, j] < c then
c := V2[i, j];
end;
B[i] := c;
writeln(w, 'Значение ', i, ' строки = ', B[i]);
end;
for i := 1 to n do
begin
Writeln('B[', i, ']=', B[i]);
end;
c := B[1];
for i := 1 to n do
begin
if B[i] > c then
c := B[i];
end;
writeln('Ответ:');
writeln(w, 'Ответ:');
for i := 1 to n do
begin
if B[i] = c then
begin
writeln('B[', i, ']=', B[i]);
writeln(w, 'E', i,'=', B[i]);
end;
end;
close(w);
end;
///////////////Начальный ввод в прогамму///////////////
begin
assign (w, 'PrResh.txt');
rewrite (w);
write(w, 'Матрица:');
close(w);
Write('Введите количество строк матрицы ');
Readln(n);
Write('Введите количество столбцов матрицы ');
Readln(m);
Vvod(n, m);
o := 'y';
while o <> 'n' do
begin
if o = 'y' then
begin
writeln('');
writeln('Методы выбора:');
writeln('1. Критерий Сэвиджа;');
writeln('2. Критерий Гермейера;');
Write('Введите номер метода: ');
Readln(r);
case r of
1: Sevi(n, m);
2: Ger(n, m);
3: o := 'n';
end;
end;
if o = 'y' then
begin
Writeln('Решить пример другим методом?');
Writeln('Да - y! Нет - n!');
Read(o);
end;
//clrscr;
end;
end.

8 лет назад