есть число какую нужно написать программу чтобы куб цифр этого числа в сумму давал это число к примеру число 153 1*1*1+5*5*5+3*3*3 ЭТО НУЖНО ЗАПИСАТЬ НА ЯЗЫКЕ ПРОГРАМИРОВАНИЯ PASKAL ABC

2

Ответы и объяснения

2013-05-25T13:06:48+04:00

uses crt;

 

var

  n, r, k : Integer;

begin

  clrscr;  

  r := 0;

 

  Write('Введите число:');
  ReadLn(n);

 

  k := n mod 10;
  r := r + k*k*k;

 

  k := n div 10 mod 10;
  r := r + k*k*k;

 

  k := n div 100;
  r := r + k*k*k;

 

  Writeln(r);
  Readln;
end.

2013-05-25T17:41:47+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program Chelovekkk;
{работает для чисел любой длины, не только для 3-значных}

uses crt;
var
  n,nt: integer;
  temp, kub : real;
begin
  kub := 0;
  write('Введите число ');
  readln(n);
  nt:=n;
  writeln('*** alphaues is thinking... ***');
  while nt>=1 do
    begin
    temp:=nt mod 10;
    kub := kub + temp*temp*temp;
    nt := nt div 10;
  end;
  writeln('Сумма кубов цифр числа ',n,' равна ',kub);
end.