Написать программу ** Паскаль. Задание: вывод ** экран кубов чисел от 15 до 2.

Question

Написать программу на Паскаль.
Задание: вывод на экран кубов чисел от 15 до 2.

Answer 1

Если нужно от 15 до 2 :
Var i:integer  
Begin
i:=2
while i<=15 do begin <br>write(i**3,' ')
end;
end. 

P.S. Если нужно от 2 до 15 :
Var a,i:integer
Begin
for i:=2 to 15 do
begin
write(i**3,' ')
end;
end.

Comments

Виноват, если нужно от 15 до 2 :

---

Var i:integer 

---

Begin

---

i:=2

---

while i<=15 do begin

---

write(i**3,' ')

---

end;

---

end.