В полученной случайным образом последовательности N целых чисел…

Question

В полученной случайным образом последовательности N целых чисел из промежутка [10; 1000] найти числа, у которых ровно 4 делителя.

Answer 1

53

artemka_m55

04 сентября 2022

Const n=?; {Вместо "? " вставить значение}Var a: array[1… n] of integer; i: integer; Function del (x: integer): integer; {Функция для определения кол-ва делителей}var i,k: integer; begin k: =0; for i: =1 to x do if (x mod i)=0 then k: =k+1; del: =k; end; Begin randomize; for i: =1 to n do a[i]: =random[10,1000]; for i: =1 to n do if del (a[i])=4 then write (a[i],'); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: