Решите задачу на питоне Написать программу, которая выводит на экран случайные трёхзначные числа
до тех пор, пока не выпадет число, произведение цифр которого является
НЕчетным числом. Указанное число должно быть выведено последним.
Числа нужно выводить на одной строке через пробелы.
Вывести также количество всех полученных случайных чисел.
Замечание: используйте целочисленную арифметику (НЕ СТРОКИ).
const
AOper: array [0..3] of string = ('+', '-', '*', '/');
var
a, b, Oper: Integer;
r: Real;
begin
Randomize; // инициализация датчика случайных чисел
a := Random (1001);
b := Random (1001);
Oper := Random (4);
case Oper of
0: r := a + b;
1: r := a - b;
2: r := a * b;
3:if b <> 0 then begin
r := a / b;
end else begin
WriteLn ('Произошла ошибка при делении на ноль');
Exit;
end
else r := -1;
end;
WriteLn (a);
WriteLn (b);
WriteLn (Aoper [Oper]);
if (r >= 0) and (r - Trunc (r) = 0) then begin // если в результате получилось положительное целое число
WriteLn ('yes');
WriteLn (r :6 :0);
end else
WriteLn (' no');
ReadLn;
end.
Объяснение:
r - Trunc (r) // это выделение дробной части числа