Цитата:
Сообщение от marina1602
Операторы цикла:
3)Написать программу поиска двузначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само число.
|
Код:
program search;
var i, d, e, s: integer;
begin
for i:=10 to 99 do begin
d:=trunc(i/10);
e:=i-d*10;
s:=d+e;
if s+sqr(s)=i then writeln(i); end;
end.