Question

Составить программу в Pascal. С клавиатуры вводится трехзначное число N. Вычислить цифры данного числа без использования функции деления с остатком MOD, возвести в куб каждое из чисел и сложить. ​

Answer 1

полученное число переводится в строку, строка посимвольно разбивается на три переменные, каждая из которой переводится обратно в число.

var N, m, s, k: string;

     N1, a, b, c ,d : integer;

begin

readln(N);

N1:=inttostr(N);

m := copy(N1, 1, 1);

s := copy(N1, 2, 1);

k := copy(N1, 3, 1);

a:= strtoint(m);

b:= strtoint(s);

c:= strtoint(k);

d:=a*a*a+b*b*b+c*c*c;

writeln(d);

end

Answer 2

===== PascalABC.NET =====

begin

 ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println

end.

Answer 3

Конечно, вот программа на Pascal, которая выполняет указанные вами действия:

pascalCopy code
program CubeSum;

var
  N, digit, cubeSum: integer;

begin
  // Ввод трехзначного числа N
  write('Введите трехзначное число N: ');
  readln(N);

  // Вычисление цифр, возведение в куб и сложение
  cubeSum := 0;

  // Вычисление первой цифры
  digit := N div 100;
  cubeSum := cubeSum + digit * digit * digit;

  // Вычисление второй цифры
  digit := (N div 10) mod 10;
  cubeSum := cubeSum + digit * digit * digit;

  // Вычисление третьей цифры
  digit := N mod 10;
  cubeSum := cubeSum + digit * digit * digit;

  // Вывод результата
  writeln('Сумма кубов цифр числа ', N, ' равна ', cubeSum);

end.

Просто вставьте этот код в вашу среду программирования Pascal и выполните программу.