Вдесятичной записи числа 42**4 замените звездочки цифрами, если известно, что число кратно 72. выведите найденные числа на экран. решите, , не через for. буду .

Program z1; var i: byte;         s: longint; begin         i: =0;         while i< =99 do begin                 s: =42004+i*10;                 if (s mod 72)=0 then begin                         writeln(s)                         end;                 i: =i+1         end;         readln end.

program massiv;

var b: array[1..100]of integer;

r,n,m,i,p,k,a: integer;

begin

randomize; writeln ('a='); readln(a);

writeln('n='); readln(n);

for i: =1 to n do begin

b[i]: =random(50)-25;

writeln('a[',i,']=');

if b[i]> 0 then begin r: =r+b[i]; p: =r*2;

if b[i]> a then k: =k+1;

if ((b[i]< a)and(b[i]> 0)) then m: =m+1;

end; end; writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.

#код на ruby 2.2.3p173 def automate(n)       a = n / 1000       b = n / 100 % 10       c = n / 10 % 10       d = n % 10       t = [a*b, c*d]       return (t.max.to_s + t.min.to_s).to_i end def zadanie()       for i in 1000..9999             t = automate(i)             p [t, i] if t == 174       end end # примеры применения zadanie() ответ - нет таких цифр аналитическое решение 174 можно разложить на 1 + 74 и 17 + 4 по правилу 2 это только 17 + 4 17 - произведение двух чисел, но 17 простое и произведение только 17 и 1. 17 не может быть одной цифрой значит вариант 174 невозможен при таких правилах