Создайте программы в паскале пожалуйста:
С клавиатуры вводится целое число X.
• Выведите все натуральные делители числа X в порядке возрастания (включая 1 и само число).
• Определите, количество делителей числа X не считая 1 и самого числа.
• Определите, является ли введенное число простым.
• Напиши программу, которая выведет на экран простые числа в диапазоне от N до M. N и M – целые числа, которые вводятся с клавиатуры.
С клавиатуры вводится целое число X.
• Выведите все натуральные делители числа X в порядке возрастания (включая 1 и само число).
• Определите, количество делителей числа X не считая 1 и самого числа.
• Определите, является ли введенное число простым.
• Напиши программу, которая выведет на экран простые числа в диапазоне от N до M. N и M – целые числа, которые вводятся с клавиатуры.
More Questions From This User See All
Answers & Comments
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.