Ребят, помогите, пожалуйста, с задачей: ДАНО ЧЕТЫРЁХЗНАЧНОЕ ЧИСЛО,ВЫВЕСТИ НА ЭКРАН КУБЫ ЦИФР ЭТОГО ЧИСЛА(PASCAL). Заранее огромное спасибо.
Ребят, помогите, пожалуйста, с задачей: ДАНО ЧЕТЫРЁХЗНАЧНОЕ ЧИСЛО,ВЫВЕСТИ НА ЭКРАН КУБЫ ЦИФР ЭТОГО ЧИСЛА(PASCAL). Заранее огромное спасибо.
Гость
Ответ(ы) на вопрос:
Гостьvar a, b, i :integer;
s :string;
begin
readln (a);
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
write (b*b*b, ' ');
end;
end.
Не нашли ответ?
Похожие вопросы