Составить программу в Pascal. С клавиатуры вводится трехзначное число N. Вычислить цифры данного числа без использования функции деления с остатком MOD, возвести в куб каждое из чисел и сложить.
More Questions From This User See All
Answers & Comments
полученное число переводится в строку, строка посимвольно разбивается на три переменные, каждая из которой переводится обратно в число.
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
===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.