4. потому что умножаем 10 на 10 и отнимаем 24
Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
Ответ:
program Delitel;
var
n, i, j, c, d: Integer;
a: array of Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n + 1);
for i := 1 to n do begin
c := 0;
for j := 1 to i do begin
if i mod j = 0 then
Inc (c);
end;
a [i] := c;
end;
c := 1;
for i := 1 to n do begin
if a [i] > a [c] then
c := i;
end;
WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');
ReadLn;
end.
Информационная система<span> — </span>система<span> обработки информации и </span><span>соответствующие организационные ресурсы</span><span>, которые обеспечивают и распространяют </span>информацию.
примеры
<span>Информационная система по отысканию рыночных ниш
</span><span>Информационные системы, ускоряющие потоки товаров.
</span><span>Информационные системы по снижению издержек производства
</span><span>Информационные системы автоматизации технологии
</span>
Если алфавит на 64 символа, то один символ займет 6 бит
Общий объем текста 600 бит или 75 байт