Велосипедші мен мотоциклші бір жерден шығып, бір жолмен бір бағытта жүрді.велосипедшінің ғы b км/сағ , мотоциклшінің ғы 36 км/сағ.егер олар қозғалысты бір мезетте бастаса, t сағаттан соң бір-бірінен арақашықтығы неше километр болады? мұндағы b=12, t=2

1)   (36-12)*1=24(км) - расстояние между ними через 1 ч
2)   24*2=48(км) - расстояние через 2 ч

1)     Фермер имеет 3 делянки с картофелем площадью соответственно 10 а, 20 а и 30 а. С первой делянки он собрал урожай 17,4 ц, со второй - 30 ц, а с третьей - 46,8 ц. Определи урожайность картофеля на каждой из делянок и среднюю урожайность всего картофельного поля.

 

2)     Колхоз засеял пшеницей два поля. Площадь первого поля 75 га, а пло­щадь второго поля на 50 га меньше. С первого поля собрали урожай 2580 ц, а со второго -720 ц. На сколько урожайность первого поля была выше, чем второго? Чему равна средняя урожайность пшеницы в этом колхозе?

 

25 апреля 2017

1 ответ

ОТВЕТЫ 1

Эльвира Малова

1) 10a                            17,4 ц                       1,74 ц/а

20а                                30 ц                          30/20 = 1,5 ц/а

30а                                46,8 ц                       46,8/30 = 1,56 ц/а

Урожайность 1 делянки самая высокая, 2-й -самая низкая.

ответ: 1,74 ц/а; 1,5 ц/а; 1,56 ц/а; 1,37 ц/а.

 

 

2) 75 га                      2580 ц          2580/75 = 34,4 ц/га

25 га                          720 ц            720/25 = 28,8 ц/га

Урожайность 1-го поля больше на (34,4 - 28,8) ц/га или 5,6 ц/га.

ответ: 1 поле больше на 5,6 ц/га; 22 ц/га.

Пошаговое объяснение:

Program long;
 uses Crt;
 const n=5;
 type Vec=array [1..n] of integer;
 var A, B, C: Vec;
     i,j,k, Col: integer;
     Pro: longint;
     a1, a2: integer;
begin
 ClrScr;
 Randomize;
 Col:=1;  Pro:=1;
 WriteLn ('Massiv A:');
 for i:=1 to n do
   begin
     A[i]:=500+random(2000);
     Write(A[i]:6);
     if A[i] >1000 then
        begin
          B[Col]:=A[i]; Col:=Col+1;
        end;
   end;  WriteLn;
 Col:=Col-1;  WriteLn;
 WriteLn ('Massiv B:');
 for i:=1 to Col do
   WriteLn(B[i]);
 WriteLn;
 k:=1;
 for i:=1 to n do
   begin
       a2:=B[i] mod 10;
       a1:=B[i] div 1000;
       if sqr(a1)<sqr(a2) then
           begin
              C[k]:=B[i];
              k:=k+1;
           end;
   end;
 for i:=1 to k-1 do
     Pro:=Pro*C[i];
  WriteLn ('Pro=',Pro);
ReadLn;
end.