Жили-были дед да баба в Розовом Королевстве. Все жители этого королевства обожали розовый цвет и предпочитали его всем другим цветам. Даже лапти люди носили розового цвета. Однажды внучка в розовом платьице ушла в розовый лес, чтобы собрать розовые грибы в розовом лесу. Но она побежала за розовой лягушкой и заблудилась. Но тут она увидела розового сокола, который сел на полянку, посадил девочку на свою розовую спину и улетел к бабушке и дедушке в их розовый домик. Через некоторое время они поженились и на их свадьбе было очень много розовых роз.
Либо вот:
Шёл как-то бедный мужик, шел по чистому полю, увидал под кустом зайца, обрадовался и говорит:
<span>— Вот когда заживу домком-то! Возьму этого зайца, убью плетью да продам за четыре алтына. На те деньги куплю свинушку. Она принесет мне двенадцать поросеночков. Поросятки вырастут, принесут еще по двенадцати. Я всех приколю, амбар мяса накоплю. Мясо продам, а на денежки дом заведу да сам женюсь. Жена-то родит мне двух сыновей: Ваську да Ваньку. Детки станут пашню пахать, а я буду под окном сидеть да порядки наводить: «Эй вы, ребятки, — крикну, — Васька да Ванька! Шибко людей на работе не подгоняйте, видно, сами бедно не живали! » Да так-то громко крикнул мужик, что заяц испугался и убежал, а дом со всем богатством, с женой и с детьми пропал.</span>
Потому что антивирус может быть закончился или это не такие большие вирусы вред компьютеру не причинят )))
Var r1,r2,ds:real;
begin
write('R1 = '); readln(r1);
write('R2 = '); readln(r2);
ds:=pi*abs(r1*r1-r2*r2);
writeln('ds = ',ds);
end.
Пример:
R1 = 6
R2 = 4
ds = 62.8318530717959
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
i:=0;
Buff:=Head;
if(Buff^.Next=nil) then
begin
ShowMessage('В стеке один элемент!');
exit;
end;
while Buff <> nil do
begin
while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
begin
pop(Buff^.Next,x);
for j:=i to StringGrid1.RowCount-2 do
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Buff:=Buff^.Next;
i:=i+1;
end;
end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
Read(a,b); c:=a+b; Write(a,b,c);
Только надо помнить, что на выводе все "слипнется" и не удивляться.