Pascal ABC. Вынести на экран число n k раз.С циклом для и пока.

А с begin можете написать?

Считаете цикл от 2 до n/2. На каждом шаге делите, пока остаток равен нулю и выводите на экран. Простые числа так и пойдут. Александр: Остаток деления на 1 любого числа - нуль, так что ваша программа не сработает :) Плюс к примеру у числа 8 - простые множители - 2*2*2, а у вас 2*4. Зло: На самом деле, если брать и делить тоже самое 24 (2*2*2*3) (к примеру) на 2, пока остаток нуль, то дальше на числа кратные 2-м мы уже не поделим (поделили на первой итерации) , то есть 4, 8 и прочие просто пройдут мимо.