Составьте программу ** вычисление частного числа, цикл с предусловием

Question

Составьте программу на вычисление частного числа, цикл с предусловием

Comments

какой язык?

---

программа должна найти одно частное?

---

ведь у числа 20 пять часных

---

паскаль

---

да, одно

---

частное должно быть наименьшим или любым?

---

любым, мне главное, чтобы программа правильно проходила

Answer 1

Var a,b,c:integer;
begin
writeln('введите число');
readln(a);
b:=2;
while (a mod b <> 0) do begin
  b:=b+1;
end;
writeln(b);
end.