Turbo pascal.
из чисел от 1 до 100 вывести только те у которых ровно 10 делителей

Question

Информатика: Turbo pascal. из чисел от 1 до 100 вывести только те у которых ровно 10 делителей

irsenko55 · Answer

48 80Объяснение:program abcd;var  i, j, k: shortint;begin  for i := 1 to 100 do  begin    k := 2;    for j := 2 to i div 2 do      if i mod j = 0 then Inc(k);    if k = 10 then Write(i, );  end;end....

Turbo pascal. из чисел от 1 до 100 вывести только те у которых ровно 10 делителей

Популярные вопросы

Turbo pascal.
из чисел от 1 до 100 вывести только те у которых ровно 10 делителей