Программа вычисления квадрата и куба.

[Vera_S]

Здравствуйте! Помогите пожалуйста решить следующую задачку.Она во вложении!!!

[p51x]

проблема в чем? простейший цикл

[Vera_S]

Хорошо!Пожалуйста, напишите листинг этой программы, раз для вас это элементарно.

[eval]

var i:integer;
begin
  i := 0;
  WriteLn(Format('%-10s %-10s %-10s', ['число', 'квадрат', 'куб']));
  while (i <= 10) do begin
    WriteLn(Format('%-10d %-10d %-10d', [i, i*i, i*i*i]));
    i := i + 1;
  end;
end;

[Vera_S]

'%-10s %-10s %-10s' так и писать?
а какие компоненты используются?

[Пепел Феникса]

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

[eval]

'%-10s %-10s %-10s' так и писать?

Ну ненравится так, можно еще и бантики добавить, красивше будет.

[p51x]

Хорошо!Пожалуйста, напишите листинг этой программы, раз для вас это элементарно.

Приготовьте мне ужен, для вас это ж элементарно.