Например, русские сказки :)
while репка не вытащена do
begin
добавить еще одного участника;
тянуть-потянуть;
end;
кричать ('Вытянули репку!!!');
end.
while не встретилась лиса do
begin
катиться-покатиться;
встретить зверя в лесу;
спеть о том, как от бабушки ушёл и от дедушки ушёл;
спеть о том, как от всех предыдущих зверей ушёл;
пообещать и подавно уйти;
покатиться дальше;
end;
попасть лисе на зубок;
end.
Pascal:
y := (5*sqr(x) - 2 * x + 1) / (3 * x - 2);
m := sqrt((3 * sqr(a) + b) / (2 * a - b)) - (2 * a + b) / (3 * a * b);
y := sqr(sin(x / 3)) + sqr(cos(abs(x - y)));
(x + y) / 2 <> sqr(x + 3);
p_1 := sqrt(abs(sqr(x) + 2 * x + 1) / (3 * x * y) + 2 * x * y) - (abs(x + 2 * y)) / 2 * x * sqr(y);
Program Rinok;
<span>Const x0=0;</span>x1=5;
Var s,w: integer;
begin
Randomize;
s:=Random(X1-X0)+X0;
w:=Random(X1-X0)+X0;
writeln('у Кузи-',s);
writeln('у Дуси-',w);
if (s>w)
<span>then
Writeln ('-у Кузи больше')
</span><span>else
Writeln ('-у Дуси больше');
</span>Readln
end.<span>
</span>
Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.
Делим 1000 монет на 4 кучки по 250 монет. В одной из этих кучек есть фальшивая монета(она либо легче либо тяжелее обычной монеты)
ложим на весы две кучки по 250 монет. Если вес у них равен, то среди них нет фальшивой монеты. Ложим две другие кучки. Тот вес, который отличается от прошлого взвешивания говорит о том, что в кучке есть фальшивая монета(это мы определяем на втором взвешивании).
Мы определили кучку с фальшивой монетой. Дальше разбиваем кучу еще раз и повторяем операцию
Изначально кучу можно разбить по разному, например, на 10 кучек по 100 монет