Константин пишет:
На закуску для самых стойких задачка которую задавал
мой прадед - деду, дед - моему отцу, а мой отец мне ...
Думать - влом, птица - рулит!
create procedure domestic_animals
returns (
i integer,
j integer,
k integer,
l integer,
total numeric(15,2))
as
begin
i = 1;
while (i < 5) do
begin
j = 1;
while (j < 10) do
begin
k = 1;
while (k < 50) do
begin
l = 1;
while (l < 97) do
begin
total = i + j * 0.5 + k * 0.1 + l * 0.01;
if ((total between 4.999 and 5.001) and
(i + j + k + l) = 100) then
begin
suspend;
end
l = l + 1;
end
k = k + 1;
end
j = j + 1;
end
i = i + 1;
end
end
--
С уважением,
Андрей Еремин.
