Наберите текст. Используйте 16 размер шрифта. Заголовок - шрифт Arial.

Вставьте строку выше заголовка «Информация к размышлению» (шрифт Курсив, выравнивание по правому краю). Скопируйте текст 4 раза. Выровняйте: первый текст - по ширине, второй - по левому краю, третий - по правому краю, четвертый – по центру Поставлю много баллов.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

решение для 4-байтного представления

запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой

0,110010001*10^1000

10- основание (2дес=10дв)

1000-порядок(8дес=1000дв)

определим машинный порядок:

мп = 1000 + 1000000 = 1001000

запишем число

01001000 0000000 00000001 10010001

порядок          ман                тис                  са

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.

думаю, что дикий заяц, он то серый, то белый, то кремовый, в течении года