Program One; var a, b, c: real; count : byte; begin readln (a, b, c); count := 0; if a < 0 then inc (count); if b < 0 then inc (count); if c < 0 then inc (count); wrireln (count); end.
9 литровая бочка - 1 бочка 5 литровая бочка - 2 бочка сначала наливаем из 1 бочки во 2 бочку. в 1 бочке остаётся 4 литра. выливаем воду из 2 бочки. наливаем оставшиеся 4 литра из 1 бочки во 2 бочку. заново наливаем в 1 бочку 9 литров. доливаем 1 литр во 2 бочку и выливаем. в 1 бочке остаётся 8 литров. наливаем во 2 бочку 5 литров и выливаем. в 1 бочке остаётся 3 литра. наливаем 3 литра во 2 бочку, а в 1 бочку наливаем 9 литров. доливаем во 2 бочку 2 литра и выливаем. в 1 бочке остаётся 7 литров воды. наливаем из 1 бочки 5 литров во 2 бочку и выливаем воду из 2 бочки. в 1 бочке остаётся 2 литра, и наливаем эти 2 литра во 2 бочку. наливаем в 1 бочку 9 литров воды и доливаем во 2 бочку 3 литра. в 1 бочке остаётся 6 литров. готово
9 литровая бочка - 1 бочка 5 литровая бочка - 2 бочка сначала наливаем из 1 бочки во 2 бочку. в 1 бочке остаётся 4 литра. выливаем воду из 2 бочки. наливаем оставшиеся 4 литра из 1 бочки во 2 бочку. заново наливаем в 1 бочку 9 литров. доливаем 1 литр во 2 бочку и выливаем. в 1 бочке остаётся 8 литров. наливаем во 2 бочку 5 литров и выливаем. в 1 бочке остаётся 3 литра. наливаем 3 литра во 2 бочку, а в 1 бочку наливаем 9 литров. доливаем во 2 бочку 2 литра и выливаем. в 1 бочке остаётся 7 литров воды. наливаем из 1 бочки 5 литров во 2 бочку и выливаем воду из 2 бочки. в 1 бочке остаётся 2 литра, и наливаем эти 2 литра во 2 бочку. наливаем в 1 бочку 9 литров воды и доливаем во 2 бочку 3 литра. в 1 бочке остаётся 6 литров. готово
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;
if a < 0 then inc (count);
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
end.
Надеюсь на лучший ответ:)