Пожалуйста! Срочно !! Язык Раскаль !!!! Дано неотрицательное число N - количество элементов массива (N<=100). Напишите программу, которая заполняет массив из N элементов первыми натуральными трехзначными числами, произведение цифр которых есть трехзначное число. Выведите заполненный массив на экран в одну строку, отделяя элементы друг от друга одним пробелом.

PascalABC

Ответ:

Объяснение:

var N, i, z: integer;

var d: array of integer; // объявляем массив

var a: integer := 100; // первое трехзначное натуральное число 100

begin

 writeln('Введите N (N <= 100)');

 readln(N); // вводим длину массива

 d := new integer[N]; // выделяем память под массив

 while (i < N) do begin

   z := (a div 100)*(a mod 10)*((a div 10) mod 10);

   if ((z > 99) AND (z < 1000)) then begin

     d[i] := a; // заносим число в массив

     i += 1; // увеличиваем счетчик на 1

   end;

   a += 1; // увеличиваем число на 1

 end;

 for var j := 0 to N-1 do write(d[j], ' '); // выводим данные массива

end.