Описание внешней информационной среды, с которой<span> </span>будет взаимодействовать разрабатываемое программное<span> </span>обеспечение. Должны быть определены все используемые каналы ввода и вывода и все информационные объекты, к которым будет<span> </span>применяться разрабатываемое ПС, а также существенные связи<span> </span><span>между этими информационными объектами.</span>
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
Код в приложении
Компилятор - Pascal ABC.NET
<span>Радиус вписанной окружности в квадрат равен половине стороны квадрата.
"Длинна талии" - это длинна окружности. Она равна 2</span>πr.
Значит найдём радиус "колобка" и сравним его с размерами окна:
var L,a:real;
begin
writeln('Введи L и а через пробел');
readln(L,a);
if (L/(2*pi))<(a/2) then writeln('Пройдёт: ширина колобка ', L/(2*pi)*2, ', ширина окна ', a) else writeln('Не пройдёт: ширина колобка ', L/(2*pi)*2, ', ширина окна ', a);
end.