Question

Какое трехзначное число равно кубу цифры его единиц , а также квадрату числа, составленного из его второй и первой цифры?Прошу написать через цикл While.

Answer 1

var a:integer;

begin

a:=100;

while (a mod 10 * a mod 10 * a mod 10 <> a) and (sqr(a div 100 + (a div 10 mod 10) * 10)<>a) do a:=a+1;

writeln(a);

end.