Создайте программы в паскале : с клавиатуры вводится целое число x. • выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число). • определите, количество делителей числа x не считая 1 и самого числа. • определите, является ли введенное число простым. • напиши программу, которая выведет на экран простые числа в диапазоне от n до m. n и m – целые числа, которые вводятся с клавиатуры.

224

293

Посмотреть ответы 2

Ответы на вопрос:

davidovich6978p00t16

Информатика

4,4(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.