(Паскаль или Delphi) Написать программу поиска двухзначных чисел, удовлетворяющих...

Question

(Паскаль или Delphi)
Написать программу поиска двухзначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само
число.

Answer 1

Program z_3;
var a,b,n,s, i: integer;
Begin 
repeat  
writeln ('Введите Ваше число'); 
readln (n); 
if (n < 10) or (n > 99) then i:= 0 
else i:= 1; 
until i>0; 
a:= n mod 100 div 10; 
b:= n mod 10; 
s:= (a+b)+sqr (a+b); 
if s <> n then writeln ('Число не соотвествует условию') 
else writeln ('Число ',s, ' соответствует условию');
End.

Comments

программу можно проверить на числе 12

---

спасибо)

---

Program z_3;
var a,b,s, i: integer;
Begin
for i:=10 to 99 do begin
a:= i mod 100 div 10;
b:= i mod 10;
s:= (a+b)+sqr (a+b);
if s = i then writeln ('Число ',s, ' соотвествует условию')
end;
End.