сервис вопросов и ответовнаписать программу в ПАСКАЛЕ: опишите множество Pr(1..20) и поместите в него все простые числа в диапозоне 1..20. В цикле организуйте ввод чисел в
10-11 класс|
|
диапозоне 1..20 и определите, простые они или нет . Выход из цикла - введеное значение , равное 99.
Mary1235
28 июля 2013 г., 5:51:14 (10 лет назад)
Molestia222
28 июля 2013 г., 7:33:04 (10 лет назад)
var
Pr: set of 1..20;
x: integer;
begin
Pr := [1, 2, 3, 5, 7, 11, 13, 17, 19];
writeln('Вводите целые числа от 1 до 20, выход по 99');
repeat
write('Число ');
readln(x);
if x < 21 then
if x in Pr then writeln('простое')
else writeln('не простое')
until x = 99
end.
Тестовое решение:
Вводите целые числа от 1 до 20, выход по 99
Число 18
не простое
Число 3
простое
Число 15
не простое
Число 23
Число 19
простое
Число 99
Ответить
Другие вопросы из категории
Световое табло состоит из лампочек, каждая из которых может находиться в двух состояниях («включено» или «выключено»). Какое наименьшее количество
лампочек должно располагаться на табло, чтобы с его помощью можно было передать 80 различных сигналов?
ПАСКАЛЬ!!!
Нужно создать программу,которая проверяет принадлежность символа,вводимого с клавиатурі, символам %,^,& .Используя case...of..end)!
Помогите пожалуйста решить задачи:с
1.Объем сообщения,записанного с помощью компьютерного алфавита,составил 1/512 часть Кбайта. Сколько символов в сообщении?
2.Сообщение занимает 2 страницы и содержит 1/16 часть КБайта информации. На каждой странице записано 256 символов .Какова мощность использованного алфавита?
составить программу для решения задачи:задайте целое число;определите,
кратно ли оно 10.
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Написать Программу в паскале которая посчитала бы 5^123 (это цикл как бы должен быть)
http://primat.org/index/0-128 вот сайт что бы написать программу.
помогите коле и напишите программу или алгоритм которое находит все просые числа в диапазоне от m до N ВКлючительно
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))
написать программу в паскале реализующуу работу меню содержащих следующие пункты: 1 Вычесление суммы цыфр числа N; 2 вывод на экран таблицы квадратов
первого десятка; 3 Дано число N. Определить его четность; 4 Выход.
Вы находитесь на странице вопроса "написать программу в ПАСКАЛЕ: опишите множество Pr(1..20) и поместите в него все простые числа в диапозоне 1..20. В цикле организуйте ввод чисел в", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.