1) винчестер
2) джойстик
3) клавиатура
4) монитоо
5) дисковод
6) дисплей
7) плоттер
8) принтер
9) модем
10) дигитайзер
11) сканер
12) процессор
13) мышь
14) трекбол
Y:= N+1 trueN:=Y-1 falseN:=0.4 falseY:=trunk(Y) trueN:=Ndiv2 trueY:=Ymod5 falseN:=N/2 falseN:=sqr(sqrt(N)) falseY:=round(Y) falseY:=succ(-6)+8.567 trueY:= sqr(sqrt(N)) trueN:=sin(30) falseN:=cos(36)+trunk(4.56) falseY:=sqrt(N*7.345) trueY:=arctan(25) trueN:=sqrt(49) falseN:=3*2/3 false
Var a, b: real;
begin
a:=4;
b:=4;
a:=2*a+3*b;
b:=a/2*b;
write(b);
end.
Ответ
40
Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var F := ReadArrInteger(ReadInteger('T='));
var ae := F.Where(p -> p.IsEven).Average;
var ao := F.Where(p -> p.IsOdd).Average;
var m := Min(ae, ao);
var E := F.Where(p -> p > m).ToArray;
E.Println
end.
1. Наливаем 3 литра - переливаем в 8 л. кувшин.
<span>2. Снова набираем и переливаем в 8 л кувшин. </span>
<span>3. Наливаем снова и переливаем в 8 литровый кувшин 2 литра, а в 3-х литровом остался 1 л. </span>
<span>4. Из 8 л все выливаем, а туда переливаем 1 л. </span>
<span>5. А теперь два раза наполняем 3- х л. кувшин и доливаем по 3 литра в 8 л. Будет 7 литров</span>