<b> Сто лет
тому назад, ну почти сто лет…
◙
⌨╒▣
▢ ◘ Абсурдотека:Разные
версии
сказки
«Репка»
<i>
 
    ☛ Обычная репка</b> ☚
Посадил дед репку. И выросла репка большая-пребольшая. Пошёл
дед её тянуть. Тянет-потянет, а вытянуть не может. Позвал на помощь бабку.
Бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала
бабка внучку. Внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут,
а вытянуть не могут. Позвала внучка Жучку. Жучка за внучку, внучка за бабку,
бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала
Жучка кошку. Кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку,
дедка за репку — тянут-потянут, а вытянуть не могут. Позвала кошка мышку. Мышка
за кошку, кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку,
дедка за репку — тянут-потянут и вытянули репку!
 
    ☛ <b> Сказки Старшего Катона </b>
☚
Посадил дед репку. И выросла репка большая-пребольшая. Пошёл дед её тянуть. Тянет-потянет, а вытянуть не может. Позвал на помощь бабку. Бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала бабка внучку. Внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала внучка Жучку. Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала Жучка кошку. Кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут, а вытянуть не могут. Позвала кошка мышку. Мышка за кошку, кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку, дедка за репку — тянут-потянут и вытянули репку!
А кроме того, я считаю, что Карфаген должен быть разрушен.
      ☛ <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>
➲
продолжение следует
