СРЗНАЧ(B2:D2) = (b2 + c2 + d2)/3 = 6
СУММ(B2:E2) = b2 + c2 + d2 + e2 = 20
b2 + c2 + d2 = 6*3 = 18
b2 + c2 + d2 + e2 - (b2 + c2 + d2) = 20 - 18 = e2 = 2
Ответ: значение ячейки e2 равно 2.
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
5)
найдем: A2 Б2 С2 Д2
18 2 2 ?
по рисунку видно,что 3 одинаковых кусочка,следовательно,ищем 2
это номер 2) 1+1=2
ответ:2
6) в данном случае считаем у 3 последних точек абсциссы и ординаты
(-1;0) ; (2;-2) ; (3;4)
-1+2+3=4
0-2+4=2
(4;2) и теперь надо эту точку повторить 3 раза
т.е умножаем на 3
(12;6)
ответ:(12;6)
(прошу отметить как лучшее,очень нужно,спасибо))