Program z25; Var a,b,c,i,n:integer; del:array[0..100]of integer; ch:array[0..20]of integer; Begin a:=120; b:=140; For c:=0 to 20 do begin ch:=a; a:=a+1; i:=i+1; end; {заносим значения в массив} For i:=0 to 20 do write (ch,' '); {вывод массива на экран} begin {находим делители} {заносим делители во второй массив} {выводим делители на экран} end; end. Правильно ли я делаю и как доделать программу (что писать во втором цикле?)
Знаю верный ответ Найти ответ на вопрос
Ключевые слова: найти количество делителей каждого из целых чисел от 120 до 140 , Найти количество делителей каждого из целых чисел от 400 до 420. Вывести результат в виде таблицы (с переносом по строкам, если все делители не вмещаются в одной строке), Найти количество делителей каждого из целых чисел от 590 до 610. Вывести результат в виде таблицы (с переносом по строкам, если все делители не вмещаются в одной строке),
пиши на почту за не большое вознаграждение зделаю
Ответить