Свойства комьпютера: Версия windows, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьекты в основном размещение и размер, дата последнего изменения.
var
n: integer;
begin
readln(n);
if(n mod 3 = 0) or (n = 1) then writeln('Является степенью тройки')
else writeln('Не является');
end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a,b,c:real;
Writeln('Введите коэффициенты квадратного уравнения (a b c)');
Read(a,b,c);
if a=0 then begin
Writeln('а=0 делает уравнение линейным');
if b=0 then Writeln('Корней нет')
else Writeln('Один корень ')
end
else begin
var d:=b*b-4*a*c;
if d<0 then Writeln('Нет действительных корней')
else
if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end
end.
Налить в 5литровую банку воды, перелить из нее в 2литровую, отсанется 3 литра, и ещё раз перелить в 2литровую, останется 1 литр
29 и 22 знаю только двоичный код
расстояние между 11101 и 10110 =7