var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
0010 * 1011 = 0010 + 00100 + 000000 + 0010000 = 10110
A = 0, B = 0, C = 1, D = 1, E = 0.
Ответ: (3)
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a, b, c, d: real;
Read(a,b,c,d);
Println('1)', a + b + c + d);
Println('2)', a * b * c * d);
Println('3)', a * a - d * d);
Println('4)', Sqrt(a * b * c));
Println('5)', d + b - b * c)
end.
<h2>Пример</h2><h3>23.43 -152.18 -0.13 15</h3><h3>1) -113.88 </h3><h3>2) 6952.87593 </h3><h3>3) 323.9649 </h3><h3>4) 21.5296321845033 </h3><h3>5) -156.9634 </h3>
Осень жёлтая зима белая весна зелёная лето яркое