- 07.02.2018 08:23
- Информатика
- remove_red_eye 4058
- thumb_up 13
Ответы и объяснения 1
var i,j,k,l:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do
if i*i*i*i+j*j*j*j+k*k*k*k+l*l*l*l=i*1000+j*100+k*10+l
then writeln(i*1000+j*100+k*10+l);
end.
Результат:
153
370
371
407
1634
8208
9474
- 08.02.2018 04:53
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.