Программирование, 10 классPASCAL ABCНеобходимо написать код к заданию(как можно...

Question

Программирование, 10 класс
PASCAL ABC
Необходимо написать код к заданию(как можно проще):
Указать в диапазоне от a до b числа, сумма цифр которого совпадает с их произведением. Или сообщить об отсутствии таких чисел.
Срочно!

Comments

во free pascal смогу, разница есть?

---

Пишите, разтцы почти нет. Главное, "упрощённым" кодом(простым)

Answer 1

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. Достаточно простой код