Найти количество делителей каждого из целых чисел от 120 до 140

@Kooler · Регистрация: 22.03.2013

Author24 — интернет-сервис помощи студентам

Найти количество делителей каждого из целых чисел от 120 до 140.

@ermolay · 25.03.2013, 13:59

Pascal

//с учетом единицы и самого себя
var
  i,j,k: integer;
begin
  for i:=120 to 140 do
  begin
    k:=0;
    for j:=1 to i do
      if frac(i/j)=0 then inc(k);
    writeln(i,' делителей: ',k);
  end;

@Kooler 0 / 0 / 0 Регистрация: 22.03.2013 Сообщений: 27
		1
	Найти количество делителей каждого из целых чисел от 120 до 140 25.03.2013, 12:21. Показов 2130. Ответов 1 Метки нет (Все метки) Найти количество делителей каждого из целых чисел от 120 до 140. 0

	25.03.2013, 13:59

Найти количество делителей каждого из целых чисел от 120 до 140

Решение