Question

Срочно решите пожалуйста. В turbo pascal.Выведите на экран вче числа от 1 до N , у которых 4 делителя.Заранее огромное спасибо.

Answer 1

Есть пара неясностей в условии. Если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

И еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке if k>=4 then write(i:3); уберите знак > .

 

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число N');

for i:= 1 to n do begin

k:=0;

for j:= 1 to i do

if i mod j =0 then k:=k+1;

if k>=4 then write(i:3);

 

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число N');

for i:= 1 to n do begin

k:=0;

for j:= 2 to (i-1) do

if i mod j =0 then k:=k+1;

if k>=4 then write(i:3);

 

Answer 2

Для решения данной задачи на языке Turbo Pascal, мы можем использовать цикл для перебора чисел от 1 до N и проверять, сколько делителей имеет каждое число. Если число имеет ровно 4 делителя, мы выводим его на экран.

Вот пример кода на Turbo Pascal, который решает данную задачу:

program FourDivisors;

var
  N, num, divisorsCount, i: Integer;

begin
  Write('Введите значение N: ');
  Readln(N);

for num := 1 to N do
  begin
    divisorsCount := 0;

for i := 1 to num do
    begin
      if (num mod i) = 0 then
        divisorsCount := divisorsCount + 1;
    end;

if divisorsCount = 4 then
      Write(num, ' ');
  end;

Readln;
end.

В этом коде мы сначала запрашиваем у пользователя значение N. Затем мы используем два вложенных цикла. Внешний цикл перебирает числа от 1 до N, а внутренний цикл проверяет, сколько делителей имеет каждое число. Если число имеет ровно 4 делителя, мы выводим его на экран.

Примечание: Пожалуйста, убедитесь, что ваша среда разработки Turbo Pascal настроена правильно и что вы можете запустить этот код.