52

Найдите трехзначное число, равное сумме десятков…

battleses 09 марта 2023

Найдите трехзначное число, равное сумме десятков, квадрата цифры сотен и куба цифры единиц, напишите программупожалуста

категория: информатика

35

Uses crt; var i,s,e,d,so: integer; beginfor i: =100 to 999 dobegine: =i mod 10; d: =(i div 10) mod 10; so: =i div 100; s: =d+so*so+e*e*e; if i=s then writeln (i); end; end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...