Код Pascal
1 var a:integer;
2 begin
3 readln(a);
4 writeln(a*2*2*2*2*2*2)
5 end.
<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
1.147(10)=2113(4)=93(16)
2.2132(4)=158(10), А6Е=<span><span>2670(10)
3.ВА12(16)
11110(2)</span></span>
Потому что большинство системных задач по администрированию реализовано в виде консольных утилит. Более того некоторые сервера (на базе ОС BSD и Linux) не имеют графической среды вообще.