Решите задачу на питоне Написать программу, которая выводит на экран случайные трёхзначные числа
до тех пор, пока не выпадет число, произведение цифр которого является
НЕчетным числом. Указанное число должно быть выведено последним.
Числа нужно выводить на одной строке через пробелы.
Вывести также количество всех полученных случайных чисел.
Замечание: используйте целочисленную арифметику (НЕ СТРОКИ).
ответ:
. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
var
i, n, j, s, l: integer;
m: real;
begin
readln(n);
for i : = 2 to n do
begin
s : = trunc(sqrt(i));
for l : = 2 to s do
begin
m : = i mod l;
if m = 0 then
begin
write(' ', i);
break;