Ребят, помогите, пожалуйста, с задачей: ДАНО ЧЕТЫРЁХЗНАЧНОЕ ЧИСЛО,ВЫВЕСТИ НА ЭКРАН КУБЫ ЦИФР ЭТОГО ЧИСЛА(PASCAL). Заранее огромное спасибо.
Ответы
Ответ дал:
0
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.
s :string;
begin
readln (a);
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
write (b*b*b, ' ');
end;
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад