<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
<span>1110+101 = </span>10011
вот так вот
Var
x, sum: integer;
begin
read(x);
while(x > 0) do
begin
if(x mod 10 <= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.
1)80 бит
2)12 байт
3)0.5 кБайт
4)1025 кБайт
5)1 Мбайт
6)500 Мбайт
От меньшего к большему
1)<span>89
2)30
3)219
вот )))</span>