Страница 1 из 1
Pascal: Циклы
Добавлено: 05 май 2006, 12:11
Аликс
У гусей и кроликов вместе 64 лапы. Сколько может быть гусей и крликов (указать все сочетания).
Добавлено: 05 май 2006, 14:55
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;
Добавлено: 07 май 2006, 15:06
Аликс
Здравствуйте!
Вот эта строчка не работает:
ShowMessage(Format('%d гусей и %d кроликов имеют 64 ноги.', [i, j]));
Объясните эту строчку.
Я не могу никак запустить программу Ctrl+f9.
С уважением Аликс.
Добавлено: 07 май 2006, 17:14
Zroman
Вместо первой комбинации %d подставляется первая переменная из квадратных скобок, вместо второй вторая. Вот только я сомневаюсь, что в простом Turbo Pascal вообще работает команда Format, а тем более ShowMessage.
Для TP эту строку лучше переписать как
Код: Выделить всё
write(i); write(' гусей и '); write(j); writeln(' кроликов имеют 64 ноги');
Добавлено: 09 май 2006, 13:02
AiK
Топик переехал