Найти все делители для заданного числа n. Паскаль

в избранное

grandseo

07 марта 2023

uses crt; var i,n,m: integer; beginread (n); m: =n; i: =1; while i <= m dobeginif n mod i=0 thenbeginwrite (i,'); m: =(n div i); end; i: =i+1; end; write (n); end.

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

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

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

Знаете другой ответ?

Задайте свой вопрос

Pascal ABC. Ввести двузначное число, определить равняется ли его суммапяти

Дан одномерный массив А размерности n поменять местами минимальный и максимальный элемент. Работа вбейсике

Редактор презентацій Microsoft Power Point дає змогу створювати презентації:?

Как на рисовать человечка в паскале напишете пожалуйста кординаты?

Свободный объем оперативной памяти компьютера…

Составьте алгоритм вычисления по фрмулеS=П (Rl+rl+R^2+r^2) R=10l=15r=7

Указаны пути от корневого каталога к некоторым файлам, хранящимся на магнитном диске

Составить программу вывода любого числа любое заданное число раз в виде, аналогичном показанному в предыдущейзадаче

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

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

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