Pascal: Циклы

[Аликс]

У гусей и кроликов вместе 64 лапы. Сколько может быть гусей и крликов (указать все сочетания).

[LAngel]

Код: Выделить всё

var
  i, j: Integer;
begin
  for i := 1 to 64 do
    for j := 1 to 64 do
      if (i*2 + j*4) = 64 then
        ShowMessage(Format('%d гусей и %d кроликов имеют 64 ноги.', [i, j]));
end;

[Аликс]

Здравствуйте!
Вот эта строчка не работает:
ShowMessage(Format('%d гусей и %d кроликов имеют 64 ноги.', [i, j]));

Объясните эту строчку.
Я не могу никак запустить программу Ctrl+f9.

С уважением Аликс.

[Zroman]

Вместо первой комбинации %d подставляется первая переменная из квадратных скобок, вместо второй вторая. Вот только я сомневаюсь, что в простом Turbo Pascal вообще работает команда Format, а тем более ShowMessage.
Для TP эту строку лучше переписать как

Код: Выделить всё

write(i); write(' гусей и '); write(j); writeln(' кроликов имеют 64 ноги');

[AiK]

Топик переехал