Пусть b - количество быков, k - количество коров, t - количество телят. Тогда можно составить систему уравнений
Два уравнения, три неизвестных. Придется решать перебором вариантов. Но прямой перебор - это неинтересно. Попробуем оптимизировать. На 100 рублей можно купить максимум 100/10=10 быков, или 100/5=20 коров, или 100/0.5=200 телят. Без телят не обойтись, даже 18 коров и бык - это 19 голов, а нужно 100. Подбирать нужное количество из 200 хуже, чем из 20 или 10, поэтому сделаем замену, чтобы избавиться от t. Из второго уравнения следует, что t=100-b-k. (1) Подставим значение t в первое уравнение: 10b+5k+0.5(100-b-k)=100; 10b+5k+50-0.5b-0.5k=100; 9.5b+4.5k=50; 19b+9k=100 ⇒ k=(100-19b)/9 (2) Укрупненный алгоритм: Перебираем b от 0 до 9 (10 нельзя, истратим все 100 рублей, а телят покупать надо!). Для каждого b находим k по формуле (2). Если оно целочисленное, находим t по формуле (1). Решение найдено. Иначе перебор продолжается.
var b,k,t:integer; v:real;
begin for b:=0 to 9 do if (100-19*b) mod 9=0 then begin k:=(100-19*b) div 9; t:=100-b-k; Writeln('Быков ',b,', коров ',k,', телят ',t); break end; end.
Pascalabc.net var a: array[1..10000] of integer; kz,maxp,n,i,j: integer; begin i: =0; maxp: =integer.minvalue; writeln ('готов к приему чисел'); repeat i: =i+1; readln (a[i]); until a[i]=0; n: =i-1; readln (kz); for i: =1 to n-1 do for j: =2 to n do if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]); writeln ('получено ',n,' чисел'); writeln; writeln ('полученное контрольное значение: ',kz); writeln; writeln ('вычисленное контрольное значение: ',maxp); writeln; if kz=maxp then writeln ('контроль пройден') else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден
Тогда можно составить систему уравнений
Два уравнения, три неизвестных. Придется решать перебором вариантов.
Но прямой перебор - это неинтересно. Попробуем оптимизировать.
На 100 рублей можно купить максимум 100/10=10 быков, или 100/5=20 коров, или 100/0.5=200 телят. Без телят не обойтись, даже 18 коров и бык - это 19 голов, а нужно 100. Подбирать нужное количество из 200 хуже, чем из 20 или 10, поэтому сделаем замену, чтобы избавиться от t.
Из второго уравнения следует, что t=100-b-k. (1)
Подставим значение t в первое уравнение:
10b+5k+0.5(100-b-k)=100;
10b+5k+50-0.5b-0.5k=100;
9.5b+4.5k=50;
19b+9k=100 ⇒ k=(100-19b)/9 (2)
Укрупненный алгоритм:
Перебираем b от 0 до 9 (10 нельзя, истратим все 100 рублей, а телят покупать надо!).
Для каждого b находим k по формуле (2). Если оно целочисленное, находим t по формуле (1). Решение найдено. Иначе перебор продолжается.
var
b,k,t:integer;
v:real;
begin
for b:=0 to 9 do
if (100-19*b) mod 9=0 then begin
k:=(100-19*b) div 9;
t:=100-b-k;
Writeln('Быков ',b,', коров ',k,', телят ',t);
break
end;
end.
Решение
Быков 1, коров 9, телят 90