Например, русские сказки :)
while репка не вытащена do
begin
добавить еще одного участника;
тянуть-потянуть;
end;
кричать ('Вытянули репку!!!');
end.
while не встретилась лиса do
begin
катиться-покатиться;
встретить зверя в лесу;
спеть о том, как от бабушки ушёл и от дедушки ушёл;
спеть о том, как от всех предыдущих зверей ушёл;
пообещать и подавно уйти;
покатиться дальше;
end;
попасть лисе на зубок;
end.
Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>
Источник_____Информационный канал_____Приёмник
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20. Воть;) Хотя это не точно...
128 кбит/с = 16 кб/с; 1 Гб = 1024 Мб = 1024² Кб = 1048576 Кб. Значит потребуется 1048576 / 16 с = 16384 с. Если считать, что в месяце 30 дней и, соответственно, 30 * 24 * 3600 секунд, то 16384 секунд будут стоить 30 $ * 16384 / (30 * 24 * 3600) ≈ 19 центов.