Все нули . потому что 00 . 001 и т.п. считаются за 1клб
с желтого на синий, с желтого на красный, с синего на красный, с желтого на синий, с красного на желтый, с красного на синий, с желтого на синий.
тоесть: верхний корж перекладываем с желтого на синий поднос, средний корж перекладываем с желтого на красный, верхний с синего на красный, нижний с желтого на синий, верхний с красного на желтый, средний с красного на синий, верхний с желтого на синий.
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>
Это код консольного приложения
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
function storona(x1,y1,x2,y2: real): real;
var s: real;
begin
s:=sqrt(sqr(x1-x2)+sqr(y1-y2));
storona:=s;
end;
var
x1,y1,x2,y2,x3,y3: real;
l1,l2,l3: real;
begin
//Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
//Если после переключения русские буквы показываются неверно,
//следует открыть системное меню консольного окна - щелчком мыши в левом
//верхнем углу окна консоли и выбрать:
//Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
write('Введите координаты точки А: ');
readln(x1,y1);
write('Введите координаты точки B: ');
readln(x2,y2);
write('Введите координаты точки C: ');
readln(x3,y3);
l1:=storona(x1,y1,x2,y2);
l2:=storona(x2,y2,x3,y3);
l3:=storona(x1,y1,x3,y3);
if (l1>l2)and(l1>l3) then
begin
writeln('Периметр прямоугольника = ',(l2+l3)*2:6:2);
writeln('Площадь прямоугольника = ',l2*l3:6:2)
end;
if (l2>l1)and(l2>l3) then
begin
writeln('Периметр прямоугольника = ',(l1+l3)*2:6:2);
writeln('Площадь прямоугольника = ',l1*l3:6:2)
end;
if (l3>l1)and(l3>l2) then
begin
writeln('Периметр прямоугольника = ',(l1+l2)*2:6:2);
writeln('Площадь прямоугольника = ',l1*l2:6:2)
end;
readln;
end.
Const
n = 10;
var
s, i: integer;
a: array[1..n] of integer;
begin
Randomize;
for i := 1 to n do
begin
a[i] := random(60) - 30;
write(a[i], ' ');
if a[i] > 0 then
s := s + a[i];
end;
writeln;
writeln(s);
end.