<b>    Сто лет тому назад, ну почти сто лет…

◙ ⌨╒▣ ▢ ◘  Абсурдотека:Разные версии сказки «Репка»

<i>

&emsp;  &emsp;  &emsp; ☛   Обычная репка</b>  ☚

Посадил дед репку. И выросла репка большая-пребольшая. Пошёл дед её тянуть. Тянет-потянет, а вытянуть не может. Позвал на помощь бабку. Бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала бабка внучку. Внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала внучка Жучку. Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала Жучка кошку. Кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала кошка мышку. Мышка за кошку, кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут и вытянули репку!

&emsp;  &emsp;  &emsp; ☛ <b>  Сказки Старшего Катона  </b>  ☚

Посадил дед репку. И выросла репка большая-пребольшая. Пошёл дед её тянуть. Тянет-потянет, а вытянуть не может. Позвал на помощь бабку. Бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала бабка внучку. Внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала внучка Жучку. Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала Жучка кошку. Кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала кошка мышку. Мышка за кошку, кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут и вытянули репку!

А кроме того, я считаю, что Карфаген должен быть разрушен.

&emsp;  &emsp;  &emsp; ☛ <b> Репка на Паскале   </b>  ☚

program Repka;
const repka=1337;
type 
pcreatures=^tcreatures
tcreatures=record
  name:string;
  power:integer;
  next:pcreatures;
end;
var
  ded,babka,vnuchka,koshka,myshka,total:pcreatures;
  result:boolean;
begin
result:=true;
new(ded);
ded.name:='ded';
ded.next:=nil;
readln(ded.power);
if ded.power<repka then begin
  new(babka);
  babka.name:='babka';
  ded.next:=babka;
  babka.next:=nil;
  readln(babka.power);
  if ded.power+babka.power<repka then begin
    new(vnuchka);
    vnuchka.name:='vnuchka';
    babka.next:=vnuchka;
    vnuchka.next:=nil;
    readln(vnuchka.power);
    if ded.power+babka.power+vnuchka.power<repka then begin
      new(koshka);
      koshka.name:='koshka';
      vnuchka.next:=koshka;
      koshka.next:=nil;
      readln(koshka.power);
      if ded.power+babka.power+vnuchka.power+koshka.power<repka then begin
        new(myshka);
        myshka.name:='myshka';
        koshka.next:=myshka;
        myshka.next:=nil;
        readln(myshka.power);
        if ded.power+babka.power+vnuchka.power+koshka.power+myshka.power<repka then
          begin writeln('ne vitashili');
          result:=false;
        end;
      end;
    end;  
  end;
end;
if result then begin
writeln('vitagivali:)' 
p:=ded;
  while p<>nil do begin
    writeln(p.name);
    p:=p.next;
  end;
end;
end.

 </i>

➲ продолжение следует