Question

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

Answer 1

Считаете цикл от 2 до n/2. На каждом шаге делите, пока остаток равен нулю и выводите на экран. Простые числа так и пойдут.

Александр: Остаток деления на 1 любого числа - нуль, так что ваша программа не сработает :)
Плюс к примеру у числа 8 - простые множители - 2*2*2, а у вас 2*4.

Зло: На самом деле, если брать и делить тоже самое 24 (2*2*2*3) (к примеру) на 2, пока остаток нуль, то дальше на числа кратные 2-м мы уже не поделим (поделили на первой итерации) , то есть 4, 8 и прочие просто пройдут мимо.

Answer 2

Вот пример программы на языке Pascal ABC, которая выводит число n k раз с использованием цикла for:

pascalCopy code
program PrintNumberKTimes;
var
  n, k, i: integer;
begin
  write('Введите число n: ');
  readln(n);

  write('Введите количество повторений k: ');
  readln(k);

  writeln('Вывод числа ', n, ' ', k, ' раз:');

  for i := 1 to k do
  begin
    writeln(n);
  end;

  readln;
end.

Вы можете скопировать этот код в среду разработки Pascal ABC и запустить программу. Она запросит у вас число n и количество повторений k, а затем выведет число n k раз.