Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Найти двузначные числа...

Автор: ve7er 20.05.2007 23:22

Найти двузначные числа от 10 до 99 сумма цифр которых плюс квадрат этой суммы равно это же число.

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

........__|__ /
___ / **** \=======# --- HELP....
;|HH*T-34*HH:\ \
(@=@=@=@=@)

Автор: klem4 20.05.2007 23:39

Решалось совсем недавно, решение даже помоему на этой странице, поищи.

Автор: Tan 20.05.2007 23:43

я наверно не заметил, что рещалось, поэтому сам набросал, вот что вышло :

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.

Автор: klem4 20.05.2007 23:47

http://forum.pascal.net.ru/index.php?s=&showtopic=17447&view=findpost&p=102228

(задача №1)