Информатика | 5 - 9 классы
Дано число А.
Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя : пшеницы и само себя).
Дано натуральное число N?
Дано натуральное число N.
Определить, является ли оно простым .
Составить программу на языке программирования Паскаль : Подсчитать колтчество букв "а" в заданном тексте.
Пожалуйста очень надо .
Составьте программу вычисления произведения простых делителей натурального числа N?
Составьте программу вычисления произведения простых делителей натурального числа N.
Программа на языке паскаль?
Программа на языке паскаль.
Дано натуральное N .
Определить, является ли оно простым.
В паскале сделать используя циклы : Ввести число и определить является ли оно простым (если его делители являются 1 и само число)?
В паскале сделать используя циклы : Ввести число и определить является ли оно простым (если его делители являются 1 и само число).
Дано натуральное число N?
Дано натуральное число N.
Определить, верно ли, что это число содержит ровно три одинаковые цифры.
Решите алгоритмом.
Дано натуральное число?
Дано натуральное число.
А)Определить, есть ли оно четным
б)заканчивается ли оно на 7.
Вводится натуральное число?
Вводится натуральное число.
Определить, является ли оно полным квадратом.
Pascal.
Даны натуральный числа x и y?
Даны натуральный числа x и y.
Получить все делители числа x, взаимно простые с y.
Паскаль.
Дано натуральное число?
Дано натуральное число.
Определить является ли оно палиндромом.
Написать процедуру получения нового числа.
Паскаль.
Найдите наименьшее натуральное число, у которого ровно 36 делителей (включая 1 и само число 36)?
Найдите наименьшее натуральное число, у которого ровно 36 делителей (включая 1 и само число 36).
Например, у числа 6 четыре делителя : 1, 2, 3, 6.
В качестве ответа укажите одно натуральное число.
Вы перешли к вопросу Дано число А?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Var a, i, k : integer ;
begin
readln(a) ;
for i : = 2 to a - 1 do
if (a mod i) = 0 then k : = k + 1 ;
if k = 0 then writeln('Простое')
else writeln('Сложное') ;
end.