составить программу выводящую на экран все делители числа x, число x, введите с клавиатуры

Question

Информатика

Елладий

13 июня, 18:02

составить программу выводящую на экран все делители числа x, число x, введите с клавиатуры

+5

Ответы (1)

Знаете ответ?

Моша · Answer 1

program m1;

uses crt;

var x, del:integer;

begin

write ('Введите x: ') ; readln (x) ;

write ('Делители: ') ;

for del:=1 to x do

if (x mod del) = 0 then

write (del,' ') ;

writeln;

end.