Ваш вариант реализации FizzBuzz на Delphi?

← →
а в гугл заглянуть? (2014-02-05 14:03) [40]

Владислав, уж оптимизировать, так оптимизировать:
const s: array[0..14] of string = ("FizzBuzz", "%d", "%d", "Fizz", "%d", "Buzz", "Fizz", "%d", "%d", "Fizz", "%d", "%d", "Fizz", "%d", "%d");
begin
for I := 1 to 100 do Writeln(Format(s[I mod 15], [I]));
end.

← →
а в гугл заглянуть? (2014-02-05 14:13) [41]

сорри, пропустил "Buzz" в 10-м члене
хотя так, наверное, все же быстрее (кто бы проверил?):
const nn: array[0..14] of integer = (3, 0, 0, 1, 0, 2, 1, 0, 0, 1, 2, 0, 1, 0, 0);
const ss: array[1..3] of string[8] = ("Fizz", "Buzz", "FizzBuzz");
va i, n: integer;
begin
for i := 1 to 100 do begin
n := nn[I mod 15];
if n=0 then Writeln(i) else writeln(ss[i]);
end;
end.

Ваш вариант реализации FizzBuzz на Delphi? Найти похожие ветки