Информатика | 5 - 9 классы
Дано число.
Определить является ли оно простым.
Программа на паскале.
Напишите через while ИЛИ repeat.
Заранее спасибо).
Напишите программу определения простого числа в Паскале?
Напишите программу определения простого числа в Паскале.
Дано натуральное число N?
Дано натуральное число N.
Определить, является ли оно простым .
Составить программу на языке программирования Паскаль : Подсчитать колтчество букв "а" в заданном тексте.
Пожалуйста очень надо .
Дано целое число?
Дано целое число.
Определить является ли оно кратным 3.
(написать программу).
Напишите программу в с + + с помощью switch : Пользователь вводит число?
Напишите программу в с + + с помощью switch : Пользователь вводит число.
Определить, является ли оно четным.
Программа на языке паскаль?
Программа на языке паскаль.
Дано натуральное N .
Определить, является ли оно простым.
В паскале сделать используя циклы : Ввести число и определить является ли оно простым (если его делители являются 1 и само число)?
В паскале сделать используя циклы : Ввести число и определить является ли оно простым (если его делители являются 1 и само число).
В паскале дано число, если оно кратно 5, то умножить его на 10?
В паскале дано число, если оно кратно 5, то умножить его на 10.
Написать программу.
Составить программу, печатающую все простые числа, не превосходящие данного числа?
Составить программу, печатающую все простые числа, не превосходящие данного числа.
Паскаль абс.
Помогите, пожалуйста, написать программу в Паскале через циклы while и repeat?
Помогите, пожалуйста, написать программу в Паскале через циклы while и repeat.
Номер 4.
Дано натуральное число?
Дано натуральное число.
Определить является ли оно палиндромом.
Написать процедуру получения нового числа.
Паскаль.
Вопрос Дано число?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Var n, i : integer ;
begin
write('Введите целое число = ') ;
readln(n) ;
i : = 2 ;
while (n mod i < ; > ; 0) do i : = i + 1 ;
if i = n then writeln('Число ', n, ' простое') else writeln('Число ', n, ' не простое') ;
end.