Даны 3 числа найти произведение тех из них которые по модулю меньше 1 написать программу на pascal
119
485
Ответы на вопрос:
ответ:
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.
Популярно: Информатика
-
liliana56405.12.2020 18:57
-
Youseee30.04.2022 07:48
-
NasFan08.09.2020 07:57
-
дан5556608.10.2022 20:45
-
mashaaa9808.12.2021 20:14
-
Диля22222222209.03.2020 08:18
-
olya36302.10.2020 16:02
-
bulochka22827.02.2020 12:04
-
martynyaka09.04.2023 18:28
-
artovesckin7229.02.2020 06:43