-.-'

Финиш! Я выздоровел и сразу сделал.

program ex1;
var n, m, l, i : integer;
    s, s1 : string;
    s2 : char;
begin
     readln (n);
     s1:='';
     repeat
           s:='';
           m:=n mod 16;
           if m>9 then
           case m of
                10 : s:='A';
                11 : s:='B';
                12 : s:='C';
                13 : s:='D';
                14 : s:='E';
                15 : s:='F';
           end
           else
           str (m, s);
           s1 := s1 + s;
           n:=n div 16;
     until n=0;
     l:=length(s1);
     for i:=1 to l div 2 do
     begin
         s2:=s1[l-i+1];
         s1[l-i+1]:=s1[i];
         s1[i]:=s2;
     end;
     writeln (s1);

end.

Ваш, все же что-то делающий, автор

Ъ_Ъ

Программа, перемножения двух матриц. При написании крайне опасна для жизни.

program ex1;
const
n=2;
m=3;
q=4;
var
a:array [1..m,1..n]of integer;
b:array [1..n,1..q]of integer;
c:array [1..m,1..q]of integer;
i,j,r,s:integer;
begin


for i:=1 to m do for j:=1 to n do
                                     begin
                                     a[i,j]:=random(10);
                                     end;
for i:=1 to n do for j:=1 to q do
                                     begin
                                     b[i,j]:=random(10);
                                     end;

 for i:=1 to m do
 begin
 for j:=1 to n do

     write (a[i,j]:4);
     writeln;
 end;
 writeln ('*');
  for i:=1 to n do
 begin
 for j:=1 to q do
     write (b[i,j]:4);
     writeln;
 end;
 writeln ('=')   ;
   //
for i:=1 to m do
    for j:=1 to q do
    begin
        for r:=1 to n do s:=s+a[i,r]*b[r,j];
        c[i,j]:=s;
       s:=0;
    end;


 //
  for i:=1 to m do
 begin
 for j:=1 to q do
write (c[i,j]:4);
     writeln;
 end;
end.

Ваш, вспомнивший былое, автор

I'M BACK

Уже не помню, сколько времени я не пользовался этим блогом. Никак руки не доходили. Но вот нам задали очередную домашку, и, так как предыдущую работу я завалил, то поспешил написать задачу и выложить. Собственно вот:


Program ex1;
var s:string;i,k:integer;
begin
readln (s);
for i:=1 to length(s) do
                          begin
                          if  s[i]=' ' then k:=i;
                          end;
writeln (k);
delete (s,k,length(s));
writeln (s);
end.

Честно говоря, она мне не показалась довольно трудной, а это верный признак того, что я делал что-то не так  ^^

Ваш, вновь продолжающий свое дело, автор

NEW YEAR

Новый год всегда приходит неожиданно. Особенно в этом году. Ведь когда на дворе хлещет дождь,  +3 по Цельсию, и отсутствуют какие-либо признаки зимы, то в Новый Год перестаешь верить. Это может исправить только 2 вещи. Одна из них это выпадение шелковистого пушистого снега, что затруднительно. Вторая вещь, стоит у меня в зале (как и у вас, возможно, тоже). Это ёлка. Это не просто какая-то там ёлка, это Ель, Ель с большой буквы, Ель, которая росла чуть ли не в Сибири, а по словам продавца ещё и спилена только сегодня, Ель, от которой так пахнет Новым годом, та под которой уже через пол недели мы найдем свои подарки, Ель, которая не может не радовать.
Я почему решил это всё написать? Просто так, от радости, видите ли - настроение хорошее. :D
Я не оправдываюсь, нет...
Мои планы на будущее не меняются. Но лично мне, после столько всего пережитого и неппережитого в этом 2012 году, 2013 кажется чем-то абсолютно новым, чистым, как белый лист, купленный в магазине или вытащенный из принтера. Пиши, что хочешь, рисуй, что хочешь. Всё в твоих руках, лапах и т.д.

Ваш, верящий во всё наилучшее, уповающий на Новый Год, тот, чей огонёк никогда не потухнет на небольшой модели земли, что находится на самом полюсе,  автор.
Пойду я, пожалуй, напишу письмо Деду Морозу :P

Вот

Вот я и решил задачу, которую вы мне давали.


program ex1;
var n,k,i,n1:integer;
v:string;
begin
readln (n,v);
k:=length(v);
writeln (n,' ',k);
n1:=n;
if n mod k = 0 then
           begin
           for i:=1 to (n div k)-1 do n1:=n1*(n-i*k);
           end
           else
           begin
           for i:=1 to n div k do n1:=n1*(n-i*k);
           end;
writeln (n1);
end.

Я не могу не закончить этот пост цитатой:
                "Это слишком легко... Или я что-то не так делаю?" А.С. Тертерян.

Ваш, неосмотрительно решивший задачу, автор

IMBA LOL KHA'ZIX

KHA'ZIX==KHA'ZIX==KHA'ZIX==KHA'ZIX==KHA'ZIX==KHA'ZIX==KHA'Z

Способности

	QTaste Their Fear Отведай их страх Пассивно: Отмечает врагов, которые изолированы от ближайших союзников. Активация: Наносит 70/100/130/160/190 (+...) физического урона. Если цель изолирована, урон увеличивается в зависимости от расстояния до ближайшего союзника (башни не в счёт) на от 100/145/190/235/280 до 5000. Развитые Когти: Урон изолированным целям увеличивается на 12/24/36/48/60% от их потерянного здоровья. Увеличивает дальность применения способности и дальность базовых атак на 50/50/50/50/50. Восстановление: 3.5/3.5/3.5/3.5/3.5 сек. Стоимость: 25/25/25/25/25 Маны Дальность: 325
	WVoid Spike Шипы Пустоты Выстреливает взрывающимися шипами, наносящими 75/115/155/195/235 (+...)физического урона всем ближайшим врагам. Kha'Zix излечивается на 40/70/100/130/160 (+...) в любом случае. Развитые Шипы: Выстреливает 15 шипов в конусе. Использует "Незримую Угрозу" чтобы нанести урон и замедлить всех задетых врагов. Восстановление: 8/8/8/8/8 сек. Стоимость: 60/70/80/90/100 Маны Дальность: 25000
	ELeap Скачок Прыгает в указанную область, нанося (+...) физического урона. Развитые Крылья: Увеличивает дальность прыжка. Дает возможность, если прыжком задета какая либо цель, прыгнуть второй раз, и так далее. Убийство или помощь в убийстве Чемпиона обновляет способность. Восстановление: 22/20/18/16/14 сек. Стоимость: 50/50/50/50/50 Маны Дальность: 25000
	RVoid Assault Атака из Пустоты Пассивно: С каждым рангом Kha'Zix развивает одну из своих способностей, добавляя ей уникальный эффект. Активация: Становится невидим пока не использует способность или не атакует. Активирует "Незримую Угрозу" и увеличивает на 100/200/300% скорость передвижения. Активный Камуфляж: Способность активируется 5/7/9 раз подряд. Kha'Zix получает на 40/40/40% меньше урона, пока невидим. Восстановление: 100/90/80 сек. Стоимость: 100/100/100 Маны Дальность: 25000
	Unseen Threat Незримая Угроза Когда Kha'Zix невидим для вражеской команды, он получает эффект "Незримой Угрозы", а его следующая базовая атака против вражеского Чемпиона наносит КУЧУ дополнительного магического урона и замедляет на @f3@% в течение 2 секунд. Ваш, невидимый для вражеской команды, автор

Saurday

Как же я люблю субботы. Вот на радостях даже сделал задачку по информатике... Она должна определять какая самая частая буква из всех, которые употребляются в тексте, ну а если таких букв несколько, то вывести любую из них :D Вот она:


program ex1;
type let='a'..'z';
var
a:array ['a'..'z'] of integer;
s:string;
c,max:char;
i,mx:integer;
begin
readln (S);
i:=1;


while S[i]<>'.' do
                begin
                if S[i]<>' ' then
                             begin
                             c:=S[i];
                             a[c]:=a[c]+1;
                             end;
                i:=i+1;
                end;
mx:=0;
for c:='a' to 'z' do
begin
if a[c]>mx then
                                      begin
                                      mx:=a[c];
                                      max:=c;
                                      end;
end;

writeln;
writeln (max);
end.

Ваш, не использующий стандартные шаблоны, автор