Составить алгоритм через паскаль.введите с клавиатуры три числа авс.если а=в.то все числа замените квадратами если а> b> c то каждое число замените наибольшим, иначе: а сделайте равным сумме в и с, с обнулите, в оставьте без изменения»
Var a, b, c : integer; begin read (a, b, c); if a = b then begin a := sqr (a); b := sqr (b); c := sqr (c); end else if (a > b) and (b > c) then begin b := a; c := a; end else begin a := b + c; c := 0; end; write (a, ' ', b, ' ', c); end.
Для решения этой задачи будут необходимы весы с двумя чашами. Раскладываем 9 монет на 3 стопки по 3 монеты и начинаем взвешивание. Алгоритм определения фальшивой монеты состоит из 2 шагов:
1. Взвешиваем любые 2 стопки по 3 монеты. Если весы в равновесии - то фальшивая монета в оставшейся стопке, если какая-то чаша перевешивает, значит фальшивая монета в той стопке, которая легче.
2. Из стопки из 3 монет, в той которая находится фальшивая, берем любые 2 и взвешиваем. Если весы в равновесии - фальшивая та, которая осталась, если одна из чаш перевешивает, значит фальшивая та, которая легче.
a, b, c : integer;
begin
read (a, b, c);
if a = b then
begin
a := sqr (a);
b := sqr (b);
c := sqr (c);
end
else if (a > b) and (b > c) then
begin
b := a;
c := a;
end
else
begin
a := b + c;
c := 0;
end;
write (a, ' ', b, ' ', c);
end.