Информатика | 5 - 9 классы
Дано натуральное число N.
Найти и вывести все простые делители
этого числа.
Паскаль.
Через вложенные циклы.
Вывести первые N натуральных чисел, сумма цифр которыхнечётная?
Вывести первые N натуральных чисел, сумма цифр которых
нечётная.
Паскаль.
Через вложенные циклы со счетчиком.
Дано n натуральное?
Дано n натуральное.
Найти и вывести все числа в интервале от 10 до n - 1, у которых произведение всех цифр совпадает с суммой цифр данного числа.
Если таких чисел нет вывести "Нет".
Паскаль.
Дано натуральное число n (n>999)?
Дано натуральное число n (n>999).
Найти : число сотен в нём, число тысяч в нём.
В Паскале abc.
Найти все простые делители натурального числа N?
Найти все простые делители натурального числа N.
Входные данные : Ввести одно число N (1.
Дано простое число найти следующее за ним простое число паскаль?
Дано простое число найти следующее за ним простое число паскаль.
Написать программу в паскале "даны три числа, вывести большее из них?
Написать программу в паскале "даны три числа, вывести большее из них.
Написать программу в паскале " даны три числа, вывести большее из них"?
Написать программу в паскале " даны три числа, вывести большее из них".
Free BasicДано натуральное число n?
Free Basic
Дано натуральное число n.
Вывести все простые делители данного числа.
Дано натуральное число n?
Дано натуральное число n.
Найти кубический корень из суммы квадратов цифр заданного числа.
ПАСКАЛЬ.
Дано натуральное число n?
Дано натуральное число n.
Найти кубический корень из произведения цифр заданного числа.
ПАСКАЛЬ.
На этой странице сайта размещен вопрос Дано натуральное число N? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 5 - 9 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Var n, k, x, i, j : integer ;
begin write ('Введите число : ') ; readln (n) ; writeln ('Простые делители числа : ') ; x : = 0 ; for i : = 2 to n do begin if n mod i = 0 then begin k : = 0 ; for j : = 2 to i div 2 do if i mod j = 0 then begin k : = 1 ; break end ; if k = 0 then begin writeln (i) ; x : = 1 ; end ; end ; end ; if x = 0 then writeln ('Нет простых делителей') ;
end.
- - - - - - - - - - - - - - - - - - - Пример : - - - - - - - - - - - - - - - - - - - -
Введите число : 42
Простые делители числа :
2
3
7 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -.