Выделите для будущей базы данных школа объекты по которым будут созданы отношени
187
409
Ответы на вопрос:
ответ:
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.
Популярно: Информатика
-
freddylolbrO12.01.2022 06:04
-
учченица08.01.2022 08:03
-
sergeu3522p09njx08.08.2020 02:38
-
lalalala77714.04.2023 08:23
-
PashaKuts02.12.2021 22:37
-
МарияЛобачева17.11.2022 00:17
-
23806435601.03.2020 09:13
-
ayselhasilova07.09.2021 14:30
-
vk2931416haker18.09.2020 12:02
-
noragami200312.04.2021 15:46