Вопрос по информатике:
Создайте программы в паскале пожалуйста:
С клавиатуры вводится целое число X.
• Выведите все натуральные делители числа X в порядке возрастания (включая 1 и само число).
• Определите, количество делителей числа X не считая 1 и самого числа.
• Определите, является ли введенное число простым.
• Напиши программу, которая выведет на экран простые числа в диапазоне от N до M. N и M – целые числа, которые вводятся с клавиатуры.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.01.2015 01:06
- Информатика
- remove_red_eye 16598
- thumb_up 11
Ответы и объяснения 1
Var
x, i: integer;
begin
Write('Введите X -> ');
readln(x);
Write(1, ' ');
for i:= 2 to x div 2 + 1 do
if x mod i = 0 then
Write(i, ' ');
Write(x);
end.
2)
Var
x,count, i: integer;
begin
Write('Введите X -> ');
readln(x);
for i:= 2 to x div 2 + 1 do
if x mod i = 0 then
count:= count + 1;
Writeln(count);
end.
3)
Var
x, count, i: integer;
begin
Write('Введите X -> ');
readln(x);
for i:= 2 to x div 2 + 1 do
if x mod i = 0 then
count:= count + 1;
if count = 0 then Writeln('Простое')
else Writeln('Составное');
end.
4)
Var
n,m, i, j: integer;
fl:boolean;
begin
Readln(n,m);
For i:= n to m do
begin
fl := true;
for j:= 2 to i div 2 + 1 do
if i mod j = 0 then fl := false;
if (fl) then Write(i, ' ');
end;
end.
- 22.01.2015 20:11
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.