1 Аполлон - божество солнца, сын Зевса и Лето, а все остальные планеты
2. Флейта - духовный инструмент, а остальные струнные
3. Рикша - это повозка, а остальные название морских судов
4. Тургенев - писатель, а остальные композиторы
5. Нью-Йорк - город, а все остальные столицы
6. бунгало, иглу, шале - это жилье, причем тут осень и зима
7. Нил - река в африке, а остальные в Европе
8. Руслан - название самолета, остальные название авто
9. Торф - минерал, остальные твердые ископаемые
10. Кофе - мужского рода, остальные среднего рода
program Multi3;
var
A: array [1..3] of Double;
i: Integer;
p: Double;
b: Boolean;
begin
Randomize;
Write ('Исходные числа:');
WriteLn;
for i := 1 to 3 do begin
A [i] := Random (4000) / 1000 - 1; // заполняем числами, чтоб были и положительные и отрицательные
Write (A[i] :10 :3, ' ');
end;
b := False;
p := 1;
for i := 1 to 3 do begin
if Abs (A [i]) < 1 then begin
b := True; // включаем флаг, если найдено хотя бы одно подходящее число
p := p * A [i];
end;
end;
WriteLn;
if b then
WriteLn ('Произведение = ', p :10 :3)
else
WriteLn ('Произведение не определено.');
ReadLn;
end.
ответ: 3 носка