1. Информатика
  2. Найти все делители натурального

Найти все делители натурального числа n

helpplease14 helpplease14    3   13.03.2019 05:30    1

Ответы
aigul841107gMailcom aigul841107gMailcom  25.05.2020 03:28

program xxx;

  var i, n : integer;

begin

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

 readln (n);

 writeln('Делители числа: ');

 for i :=1 to n do

   if n mod i = 0 then writeln (i)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
лулы лулы  26.09.2019 17:00
Напишите программу, которая считывает из файла строки, символы(не важно). в общем, нужно, чтобы я вводил год, например 1944 и программа искала в указанном файле...
Ikramhaus221 Ikramhaus221  26.09.2019 17:00
Обчислити значення функції y=2*x2 + 10*x+40. змінна х вводиться з консолі. microsoft visual studio...
clara2200 clara2200  26.09.2019 17:00
Реалізувати функцію обчислення частки двох дійсних чисел в microsoft visual studio...
вика3730 вика3730  26.09.2019 17:00
Разобрать которая вводит с клавиатуры последовательность из m дробных чисел и после ввода каждого числа выводит сумму и среднее арифметическое введенной части последовательности...
Dima98891 Dima98891  05.04.2020 21:53
Напишите программу на языке Паскаль, вычисляющую значение функции 5d, если d 5 A = 3d/(d+8), если d≥5​...
Danya294 Danya294  05.04.2020 21:52
Сколько секунд потребуется модему передающему сообщение со скоростью 73.728 бит в секунду чтобы передать цветное растровая Ира изображения размером 1024 на 768...
hamster321123 hamster321123  05.04.2020 21:52
Траляля и труляля загадали 2 числа заведомо известно ,что число загаданное меньше числа труляля.Найти сумму квадратов всех целых чисел от числа траляля до труляля...
masha90876 masha90876  21.08.2019 19:20
1. цветное с палитрой из 256 цветов растровое графическое изображение имеет размер 12х12 точек. какой объем в памяти займёт это изображение? 2. в процессе преобразования...
Klot0708 Klot0708  21.08.2019 19:20
1) документ объёмом 4 мбайт можно передать с одного компьютера на другой двумя а. сжать архиватором, передать архив по каналу связи, распаковать. б. передать по...
tibefp33org tibefp33org  18.06.2019 06:40
Turbo pascal.дана строка, содержащая 15 символов.подсчитать сколько раз буква о встречается в данной строчке....

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