<span>Домашні тварини живуть з людиною, яка їх утримує, надаючи їм житло і їжу. Домашні тварини приносять людині користь, або як джерело матеріальних благ і послуг, або як друзі, що скрашують його дозвілля. Більшість домашніх тварин легко розмножуються. Проводячи штучний відбір, людина може контролювати розмноження домашніх тварин і ознаки, які вони передають своєму потомству. Домашні тварини можуть міститися в спеціальних приміщеннях (скотний двір, стайня, собача будка), але можуть жити і безпосередньо в будинку людини. З тих тварин, які живуть в будинку, одних містять в клітинах, акваріумах, тераріумах і інших "будиночках", а іншим (наприклад, кішкам, собакам, кроликам і навіть мавпам) дозволяють вільно переміщатися по приміщенню.
</span>
<span>Если помог, жми "Спасибо"</span>
Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
И(A1>-10) ⇒ Истина
<span>ИЛИ(A1<-15;И(A1>-10)) </span>⇒ Истина
Следовательно, в ячейке В1 будет А1
Сначало надо взять козу и перевести ее. Потом поехать за капустой. Привесзти ее, но забрать козу. Приехать. Оставить козу и взять волка. Перевести волка. И потом вернуться за козой;)
program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
else
writeln('c-среднее число');
end.