LOADING

Извините пожалуйста, но я забыл какие номера конкретно задали. Спросил у ребят: говорят 135 и 138. Ну, нет проблем:
Вот 135:

Program ex135;
var a : string;
i, j : integer;
begin
     writeln ('vvedite stroku');
     readln (a);
     j := length (a);
     if j mod 2 <> 0
     then
     delete (a, j div 2 + 1, 1)
     else
     delete (a, j div 2 + 1, 2);
     writeln (a);
end.

А вот 138:

Program ex138 ;
var S : string;
i,j,a,b,c,K : integer;
begin
writeln('vvedite chislo ');
readln(S);
j:=length(S);
K:=0;
for i:=1 to j do
   if pos (copy(S,i,i),S)=1 then K:=K+1;
writeln (K);
for i:=1 to K do
   begin
   a:=Pos('z',S);
   delete(S,a,1) ;
   Insert('f',S,a);
end;
writeln(S);
end.

Вроде всё работает :D

№22

Осень... Что для вас значит это слово? А может и не слово? Для меня осень - это пора великих сверщений, разочарований и самой великой из всех сил - лени. Как говорят, лень - это умение устать до того, как начнёшь что-нибудь делать. Меня даже назвали в её честь :D Но если честно, то речь шла об осени. Осень, осень, осень. Хочется сидеть дома, раскисая под минорные раскаты музыки и, закатив глаза к потолку думать о вечном. Или же, играть с друзьями, рисовать картины, участвовать в соревнованиях, познавая сладость поражения и горесть победы, завоёванной чужой болью... А что для вас ОСЕНЬ?

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

BIG HW

Да здравствует победитель, плачьте поверженные, но истина гласит, что первый я дерзнул вложить свой рукотворный труд на этот блог... Сей труд способен сосчитать число гигинтское, что есть 3 в степени сотой. По исполнении труд выдаёт два числа: истинное, кое и есть 3 в сотой степени, а позже пишет число, окпуглённое в типе переменных real. Вот она...

program ex1;
var a:array[1..50] of integer;
k,i,j,x,num:integer;
b:real;
begin
for i:=1 to 50 do a[i]:=0; a[50]:=1;
for j:=1 to 100 do
   begin
   x:=0;
   for i:=50 downto 1 do
      begin
      num:=a[i]*3+x;
      a[i]:=num mod 10;
      x:=num div 10;
      end;
   end;
k:=1;
while a[k]=0 do k:=k+1;
   for i:=k to 50 do write (a[i]);
   b:=1;
   for i:=1 to 100 do b:=b*3;
   writeln;
   writeln (b);
end.

P.S.: Трепещите смертные!
P.S.: Это не почерк готический, а SLACKEY, прекраснее нет которого...

Ваш, приклоняющийся перед могуществом этой программы и перед лицом её проверяющих, автор

HW 2

Ну наконец то...

Program my_2;
var n, n1, n2, n3, a, b, c, i : integer;
begin
     writeln ('Введите n');
     readln (n);
    n1:= n;
     d := a mod 10;
     n2 := 0;
     while n1<> 0 do
     begin
          n1 := n1 div 10;
          n2 := n2 + 1;
     end;
     a := 1;
     for i := 1 to b - 1 do
         a := a * 10;
     n3:= n div b;
    c := a*b + n mod b - a +n3;
     writeln (c);
end.

Ваш, решивший то, что нужно, автор

HW

И так домашка по информатике, задача №81, встречайте!!!

program ex81;
var n,i,n1,n2,k:integer;
begin
writeln ('n');
read (n);
n2:=n*n;
k:=0;
while (n2 div 10 <>0) do
    begin
    n1:=n2 div 10;
        if n1=7 then k:=k+1;
    n2:=n2 mod 10;
    end;
 if k=0 then writeln ('netu 7-orok') else writeln ('v kvadrate n est ',k ,' 7-orok');
 end.

Ваш, пока не понимающий 82 задачу из-за странного условия, автор

TOTAL WARNING!!!

>>>>>DOTA2<<<<<

RATE 5 :D

life is BIG & BAD

И вот я снова строчу, прыгая нелепыми пальцами по клавиатуре, убивая своё время и кривя спину, чтобы ВЫ могли точно также кривить спину и ПОДПЕРШИ ГОЛОВУ ЛЕВОЙ РУКОЙ читать эту мутотень.
Я заговорился. И так сейчас я, прокручивая сотый раз I WANT TO KILL EVERYBODY IN THE WORLD, строю планы по захвату мира и решая задачи по информатике. Сегодня была административка по русскому. Прибываю в гордых чувствах сам о себе (подскахавшему доброй половине нашего класса :D). И это хорошо! Я решил нарисовать шаржи на всех героев DOTA 2.
Ну держись, мой несчастный блог...


P.S.: Я наконец то вспомнил пароль от своего блога, а кол-во моих постов уже приближается к двадцать, что-то это значит >:D

Ваш, абсолютно не ленивый, в полном порядке, прибывающий в гордости сам за себя, желающий показать и вывернуть на изнанку весь свой внутренний мир, строящий безукоризненные, но несбытный планы по захвату мира, вспомнивший свой пароль (уф... устал), АВТОР,аффтар,AVATAR, и много других слов...