Осень

Осень началась хорошо.. Очень хорошо. Заболеть на 2ю неделю учёбы. Личный рекорд. Но перейдем к главному: да, я проболел 2 урока информатики. Но тем не менее, я сделал домашнее задание ( в этот раз, надеюсь первым... ). Вот. Программа выводит красивый пример.


program ex1;
var n,i,s:integer;
begin
readln (n);
s:=0;
for i:=1 to n-1 do
    begin
    if n mod i=0 then
         begin
         if i>1 then write ('+');
         write (i);
         s:=s+i;
         end;
    end;
writeln ('=',s);
writeln;
if s=n then writeln ('Это число совершенно, тк ',n,' = ',s) else writeln ('Это число несовершенное, тк ',n,' не равно ',s);
end.

Ваш, первый прибежавший к финишу, и вообще не уставший, автор

КроссВорд

Я прибываю в противоречивых чувствах. С одной стороны, я как любой эгоистичный подлец пытаюсь первым выложить кроссворд. чтобы, непосредственно, заполучить уважение начальства. С другой стороны, если я выложу правильный вариант, то его в тот же момент скопируют. Я подумал, что будет корректно допустить в кроссворде всего 1 ошибку, о которой буду знать только я и Алла Юрьевна, которой я об этом скажу. Остальные же, списавшие с ошибкой, будут обличены и публично унижены :D

Вот пожалуй и всё. Удачи всем ещё не сделавшим. :P

Ваш, рассчитывающий на правосудие, автор

DOCUMENT

Я, автор этого сообщения, находясь в здравом уме и трезвой памяти, заявляю и сим подтверждаю, что на моем блоге происходит абсолютный  хаос  порядок. За последние 2 месяца я не выложил ни одного сообщения. Это лишь подтверждает чистоту моих намерений.
За сим закончим.

Ваш, составивший сий документ, автор