Информатика | 5 - 9 классы
Напишите программу определения делитей числа в Паскале.
Напишите программу в паскаль : составить программу для получения в порядке убывания всех делителей данного числа?
Напишите программу в паскаль : составить программу для получения в порядке убывания всех делителей данного числа.
Напишите программу определения простого числа в Паскале?
Напишите программу определения простого числа в Паскале.
Напишите программу, которая считает сумму цифр введенного числа(паскаль)?
Напишите программу, которая считает сумму цифр введенного числа(паскаль).
Составьте алгоритм для определения количества цифр в записи произвольного натурального числа (для программы Паскаль)?
Составьте алгоритм для определения количества цифр в записи произвольного натурального числа (для программы Паскаль).
Паскаль составьте программу определения наибольшей цифры в записи данного натурального числа?
Паскаль составьте программу определения наибольшей цифры в записи данного натурального числа.
Напишите , пожалуйста, программу для паскаля?
Напишите , пожалуйста, программу для паскаля.
Напишите программу в паскале на определение максимального числа из двух введенных?
Напишите программу в паскале на определение максимального числа из двух введенных.
Напишите на паскале программу?
Напишите на паскале программу.
Напишите, пожалуйста, программу для паскаля?
Напишите, пожалуйста, программу для паскаля.
Напишите программу в Паскале?
Напишите программу в Паскале.
Вы перешли к вопросу Напишите программу определения делитей числа в Паскале?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Uses crt ;
var n, i : integer ;
begin
Clescr ; readln(n) ; Writeln('Делители числа ', n) ; for i : = 1 to n do if n mod i = 0 then write(i, ' ') ;
Readkey ;
end.