Блог учителя Информатики

Решение задачи ExamBegin13


Условие задачи:

На вход подается целое число, большее 1. Разложить данное число на простые множители и вывести все множители в порядке возрастания (каждое число выводить на новой строке, среди выводимых чисел могут быть одинаковые).


uses PT4Exam;

var
  a, k: integer;

begin
  Task('ExamBegin13');
  Read(a);
  k := 2;
  while a <> 1 do
  begin
    if a mod k = 0 then begin
      Writeln(k);
      a := a div k;
    end
    else k := k + 1;
  end;
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий