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

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


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

На вход подается целое число, большее 1. Вывести наименьший делитель данного числа, больший 1.


uses PT4Exam;

var
  a, x: integer;

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

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