Программирование, 10 класс pascal abc необходимо написать код к (как можно проще): указать в диапазоне от a до b числа, сумма цифр которого совпадает с их произведением. или сообщить об отсутствии таких чисел.

Const a=1; b=5; var i: integer; begin        for i: =a to b do        if i*i = i+i then        writeln(i);         readln;         end. достаточно простой код

Program massivy; var array1: array [1..10]  of integer;       i, b: integer; begin   for i: =1 to 10 do       array1[i]: =random(-10, 10);   for i: =1 to 4 do begin       for b: =1 to 4 do           if array1[b] > array1[b+1] then               swap(array1[b], array1[b+1]);   end;   for i: =5 to 9 do begin       for b: =5 to 9 do           if array1[b] < array1[b+1] then               swap(array1[b], array1[b+1]);   end;   for i: =1 to 10 do       writeln(array1[i]); end.

Program sort; var sex: string;       points: integer; begin   writeln('введите пол');   readln(sex);   writeln('введите кол-во ');   readln(points);   if sex = 'д' then begin       if points < = 35 then           writeln('в группу технологов')       else           writeln('в группу менеджеров');   end   else begin       if points < = 35 then           writeln('в группу металургов')       else           writeln('в группу инженеров');   end; end.