люди , которые заводят животных и воспитывают их,ухаживают, ростят.
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто
Введём условные обозначения:
К - красный, С - синий, З - зелёный, Ж - жёлтый, М - малиновый, Г - голубой, @ - круг, Δ - треугольник, # - квадрат, ∑- пятиугольник.
1} Первая реплика Старшего: "я не знаю, и я уверен, что ты не знаешь". Он не мог бы такого сказать, если б ему назвали Ж (его мысль: "а вдруг Младшему назвали Ж, тогда он точно знал бы ответ Ж#"). Точно так же Старшему не могли назвать Δ, потому что тогда он мог опасаться Г у Младшего. Значит, Старшему назвали @ или ∑
2} Всё это понял Младший, когда услышал первую реплику Старшего. Он знает, что у Старшего либо @ либо ∑. Если бы Младшему назвали М, он не смог бы сделать однозначного вывода. Значит М отпадает. Ему назвали С, К или З, и зная свой цвет, он может дать точный ответ: символ - С@ или K∑ или З∑.
3} Старший, услышав, что Младший уже знает ответ, мгновенно понял, что он тоже знает его. Ели бы ему назвали ∑, он бы сейчас сомневался ("К или З?"), но он не сомневается, потому ему назвали @, и возможен только один вариант: С@
Ответ: синий круг
1. Вопрос задан коряво. Задача эта называется сундук Билли Бонса, ряд
<span>5,2,7,9,16,25 - это пример последовательности числа монет в сундуке, если в первый год монет пять, во второй - две.
2. Вот программка на АБС-Паскале, не оптимальная по ряду моментов, но рабочая. Из особенностей - выводит решения только если если во второй год монет становится меньше, чем в первый. Существуют решения при нулевом количестве взятых во второй год монет и при отрицательном. Если такие решения нужны - то условие в "if (j div n) < i then" надо изменить
Программка неэффективна, вместо решения диофантова уравнения по Евклиду используется тупой перебор, но по условиям он ограничен, и его можно себе позволить.
Выводятся также все решения, если нужно одно - прерывайте цикл по нахождению первого.
---------------------
program БиллиБонс;
//
const
maxYear = 20;
maxMoney = 32767;
var
a, b: array [1..maxYear] of integer;
m, n, x, y: integer;
f1, f2: text;
s: string;
begin
assign(f1, 'input.txt'); // устанавливаем связь между файловой переменной и путем к файлу
reset(f1); // открытие на чтение файла
read(f1, x);
read(f1, y);
close(f1); // закрываем файл
// Заполняем массив коэффициентов
a[1] := 1;b[1] := 0;
a[2] := 0;b[2] := 1;
for var i := 3 to maxYear do
begin
a[i] := a[i - 1] + a[i - 2];
b[i] := b[i - 1] + b[i - 2];
end;
m := a[x];n := b[x];
// решаем уравнение m*s1 + n*s2 = y
// m,n - коэффициенты, зависящие от номера года
// s1,s2 - монет в первый и второй годы
assign(f2, 'output.txt'); // устанавливаем связь между файловой переменной и путем к файлу
rewrite(f2); // создание (перезапись) файла
for var i := 1 to y div m do
// цикл по s1
begin
var j := y - m * i;
if j mod n = 0 then
if (j div n) < i then
begin
writeln('s1=', i, ' s2=', j div n);
writeln(f2, i, ' ', j div n); // вывод данных в файл
end;
end;
close(f2); // закрываем файл
end.
</span>