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

220

342

Посмотреть ответы 2

Ответы на вопрос:

двоищник3

Информатика

4,4(19 оценок)

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.

NaTaShA0930

Информатика

4,6(38 оценок)

154(6) в семеричную вначале нужно перевести в десятичную, а уже оттуда в семеричную. 154 = 4*6^0 + 5*6^1 + 1*6^2 = 4+30+36=70 - это десятичная 70/7=10(0) 10/7=1(3) записываем снизу-вверх: 130 ответ: 130