Формулировка. Дано натуральное число. Проверить, является ли оно простым. Примечание: простым называется натуральное число, которое имеет ровно два различных натуральных делителя: единицу и само это число.
Решение. Задача отличается от предыдущей только тем, что вместо вывода на экран числа делителей, содержащегося в переменной count, необходимо выполнить проверку равенства счетчика числу 2. Если у числа найдено всего два делителя, то оно простое и нужно вывести положительный ответ, в противном случае – отрицательный ответ. А проверку через условный оператор, как мы уже знаем, можно заменить на вывод результата самого булевского выражения с помощью оператора write (writeln).
Код:
- program PrimeTest;
- var
- i, n, count: word;
- begin
- readln(n);
- count := 0;
- for i := 1 to n do begin
- if n mod i = 0 then inc(count)
- end;
- writeln(count = 2)
- end.
На этой странице рассмотрим задачи while22 и while23 задачника Абрамяна: определение простоты числа и задача о нахождении наибольшего общего делителя соответственно. Ниже есть форма для проверки числа на простоту, для этого нужно ввести целое положительное число в жёлтое поле и нажать «проверить».
Паскаль с нуля [ч5]. Математические функции. Простой калькулятор. От блок-схемы к программе
НОД(A, B) = НОД(B, A mod B), если B ≠ 0; НОД(A, 0) = A,
где «mod» обозначает операцию взятия остатка от деления.
Решение этой задачи смотрите на странице наибольший общий делитель.
Ответы и объяснения
- nikolaj-semyonov
- Мегамозг
- 2017-05-07 16:50:20
Чтобы определить, является ли число N простым на Паскале, следует последовательно делить N на числа в промежутке от 2 до N/2. Если в процессе такого деления хотя бы один раз получится так, что остаток от деления будет составлять 0, значит число имеет помимо самого себя еще какой-то делитель. А следовательно число не является простым. Вот так легко определить является ли число простым.
program ex37;
uses crt;
var n, i,f, z: integer;
begin
clrscr;
write(‘Введите натуральное число n= ‘);
readln(n);
f:=0;
i:=2;
z:=n div 2;
Источник: kompter.ru
Запиши программу на языке Паскаль. Определить, является ли число, введенное с клавиатуры простым.
Получи верный ответ на вопрос «Запиши программу на языке Паскаль. Определить, является ли число, введенное с клавиатуры простым. . » по предмету Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Новые вопросы по информатике
Напиши обратные действия. Снять — Открыть — Прилететь —
Перевести число 2-чной системы счисления в 10-чную: 1110000/2, 10001101/2
Какими знаками можно обозначить на письме звонкий и глухой удары в барабан?
Информатика 8 класс. Задание 6,7 стр 134
1) В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт. Ввести № вагона. напечатать вид. 2) Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? программа паскаль
Главная » Информатика » Запиши программу на языке Паскаль. Определить, является ли число, введенное с клавиатуры простым.
Источник: 4i5.ru
Самостоятельная работа по Паскаля для 9 класса
Самостоятельная работа по программированию (на языке Паскаль) 1 вариант. 1. Найдите ошибки в программе. Задача: определить кто старше: Маша или Саша? var s,m,с: integer; begin readln (s,m); then if s=m then write(‘СашаиМашаровестники’)else write (‘СашастаршеМаши’) else write (‘МашастаршеСаши’) end 2. Найдите значение переменной а после выполнения программы: var a,b: integer; begin a:=1848; b:=(a div 100)*10+9: a:=(10*b-a) mod 100; writeln (‘a=’, a); writeln (‘b=’, b); end. 3. .
| Раздел | Информатика |
| Класс | 9 класс |
| Тип | Другие методич. материалы |
| Автор | Москвина Н.В. |
| Дата | 19.01.2015 |
| Формат | docx |
| Изображения | Нет |
Поделитесь с коллегами:
Самостоятельная работа по программированию (на языке Паскаль)
var s,m,с: integer;
then if s=m then write(‘Саша и Маша ровестники’)else write (‘Саша старше Маши’)
else write (‘Маша старше Саши’)
Написать программу, нахождения суммы трехзначного числа, если это число разложить на разряды.
Написать программу, возведения числа в квадрат, если оно положительное, иначе вывести на экран фразу, что число отрицательное.
На входе: A:=50 B:=80 C:=100
var a,m,с: integer;
then if a>0 then write(‘число четное’)else write (‘число нечетное’)
Написать программу, нахождения среднего значения суммы трехзначного числа, если это число разложить на разряды.
Написать программу, если число кратное трем, то возвести его в квадрат, иначе вывести на экран фразу, что число не кратное трем.
На входе: A:=25 B:=75 C:=105
Источник: for-teacher.ru