Question

Скласти програму знаходження всіх дільників деякого числа введеного з клавіатури. Всі дільники повинні виводитися на екран

Answer 1

PascalABC.Net

• begin
•  var z := ReadInteger('Введите целое число: ');
•  var i := 0;
•  Println('Делители: ');
•  while i < z do
•  begin
•    Inc(i);
•    if z mod i = 0 then Print(i, ' ');
•  end;
• end.

Answer 2

begin

var z := ReadInteger('ціле число: ');

var i := 0;

Println('дільники: ');

while i < z do

begin

  Inc(i);

  if z mod i = 0 then Print(i, ' ');

end;

end.