Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if a
8x(бит)=32(Мбайт)
8x(бит)=32*1024*1024*8
8x(бит)=268435456 (бит)
x(бит)=268435456 / 8
x(бит)=33554432
1 12
2 2,3,4,9
3
var
n, m: longint;
d: integer;
begin
read(n);
m := 0;
while n > 0 do {1 на 0}
begin
d := n mod 10;
if d < 9 then begin
m := 10 * m + d; {домножили на 10}
end;
n := n div 10;
end;
write(m);
end.
Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
<span>end.</span>
<span>Каталог – это специальное место на диске, в котором хранятся имена файлов, сведения о размере файлов, времени их последнего обновления, атрибуты (свойства) файлов и т.д. Если в каталоге хранится имя файла, то говорят, что этот файл находится в данном каталоге. На каждом диске может быть несколько каталогов. В каждом каталоге может быть много файлов, но каждый файл всегда регистрируется только в одном каталоге.</span>