program p1;
var
x:integer;
y:real;
begin
WriteLn('Введите число');
ReadLn(x);
if x <= 0 then
begin
y:=3*x;
end;
if x > 0 then
begin
y:=1/x;
end;
WriteLn(y);
end.
если в лоб(то есть если все перевести в 2 не считая точек ) то можно записать так 10100.1000.11111010101
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
Нажать правой клавишей мыши и нажать на "Свойства". Тогда нужно выбрать "Настройки" и нажать н "Поменять значок". Там будет высвечиваться много значков,но когда пролистать дальше там будут 3 пустых белых квадратов и нужно выбрать один из них. Потом нажать на "Ок". И всё. Значок невидимый, а название осталось.