Найти призведение целых числет от а до 20. значение а вводится с клавиатуры: 1 =а =20 - id521719820220520 от Nysha1111 20.05.2022 07:59

Question

Информатика: Найти призведение целых числет от а до 20. значение а вводится с клавиатуры: 1 =а =20

Nysha1111 · Accepted Answer

var
m,n,i,j:integer;
bool:boolean;

begin
readln(n,m); //читаем Н и М
for i:=n to m do begin // От Н до М выполняем цикл
bool:=false; // Обнуляем переменную для каждой итерации

for j:=2 to i-1 do
begin // Проверяем, делится ли число на числа, которые находятся в промежутку от 2 до это число -1

if (i mod j=0) then bool:=true; //если делится, тогда bool:=true
end;

if (bool = false) then write(i,' '); //если bool = false, значит это число делится только на себя и на 1, а значит оно простое и выводим это число

end;

end.

Найти призведение целых числет от а до 20. значение а вводится с клавиатуры: 1< =а< =20

MOGZ ответил