Помощь - Поиск - Пользователи - Календарь
Полная версия: Найти двузначные числа...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ve7er
Найти двузначные числа от 10 до 99 сумма цифр которых плюс квадрат этой суммы равно это же число.

Например 42: 4+2=6 6+6(в квадрате)=42.

........__|__ /
___ / **** \=======# --- HELP....
;|HH*T-34*HH:\ \
(@=@=@=@=@)
klem4
Решалось совсем недавно, решение даже помоему на этой странице, поищи.
Tan
я наверно не заметил, что рещалось, поэтому сам набросал, вот что вышло :
uses crt;
var k,i : integer;
procedure Check (k : integer);
var sum,buf : integer;
begin
buf := k;
sum := 0;
repeat
sum := sum + k mod 10;
k := k div 10;
until k <= 0;
If buf = sum + sqr(sum) then
writeln (buf);
end;
begin
Clrscr;
for i := 10 to 99 do Check (i);
readkey;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.