Const
n = 30;
var
r: array[1..n] of real;
i: integer;
s1,s2:real;
begin
Randomize;
Writeln('Значения радиусов');
s1 := 0; s2:=0;
for i := 1 to n do
begin
r[i] := 60*Random+20; { диапазон [20;80] }
Write(r[i]:0:3,' ');
if (i mod 2)=0 then s2:=s2+Pi*sqr(r[i])
else s1:=s1+Pi*sqr(r[i])
end;
Writeln;
Writeln('Сумма площадей нечетных окружностей равна ',s1:0:3);
Writeln('Сумма площадей четных окружностей равна ',s2:0:3);
if s1>s2 then Writeln('Сумма площадей нечетных окружностей больше.')
else Writeln('Сумма площадей четных окружностей больше.')
end.
<em><u>Тестовое решение:</u></em>
Значения радиусов
56.879 33.997 66.165 54.564 63.760 32.462 56.152 36.012 45.476 58.788 22.239 21.141 76.301 78.056 41.087 46.567 57.791 21.957 77.978 76.025 38.028 69.101 27.912 64.033 40.992 73.433 61.029 24.535 56.062 23.439
Сумма площадей нечетных окружностей равна 141677.771
Сумма площадей четных окружностей равна 126696.264
Сумма площадей нечетных окружностей больше.
Не совсем вехал в вопрос но попробую ответить
1. визуальный способ (наблюдение за обьектом, его внешнии характеристики... )
2. "контактный" потрогать пальцом (опять таки даст возможность понять из чего состоит твердый/мягкий, холодный/теплый поверхность шероховатая/гладкая и т. д. обьект)
3. понюхать (ну ты понял)
4. механические испытания ( ну допустим обьект железо проведя испытания расняжение, сжатие и т. д. можно узнать твердость сигма текучести т. д. )
5. химические анализ (с чем объект контактирует с какой средой и т. д. )
<span>Программа восстанавливает данные жестких и внешних дисков, а также любых других устройств под управлением файловых систем FAT, NTFS. Утилита объединяет комплекс алгоритмов, восстанавливающих имя, атрибуты, содержимое файла и оригинальную структуру каталогов диска.</span><span>Кроме существующих, утилита находит все ранее созданные разделы диска и выводит их пользователю для дальнейшего анализа и поиска удаленной информации. Поддерживая FAT16, FAT32 и NTFS, используемые в Windows, программа исправляет любые ошибки логической структуры жесткого диска и возвращает его содержимое быстрее, чем вы досчитаете до трех.</span>
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600