Program z1; var a,b,c,d:integer; begin readln(a,b,c); if (a>b) and (c>b) then d:=(a+c); if (a>c) and (b>c) then d:=(a+b); if (c>a) and (b>a) then d:=(c+b); writeln(d); end.
1 задание) ответ: 1323141; Двигаемся в обратном порядке 2324142 (идём с конца) ей противоположные 1323141 2 задание) ответ: 2949; мы должны получить 11 и 13 причем минимально . можем только так 9+2 и 9+4 . значит 2949 3 задание) ответ: 3; чтобы добраться до 21 нам нужно выполнить 1 команду 6 раз и 3 раза вторую , нас спрашивают про вторую пишем ответ 3 4 задание) ответ: 1; нам нужно число которое делится на 5 то есть 4 отпадает , и также нам нужно чтобы модуль разности был не более 2 и во втором и в третьем модуль разности больше 2 , остается 1. 5 задание) ответ: 1112221; Я всегда начинаю с обратного 57-56-28-14-7-6-5-4 собираем с конца 1112221
var a,b,c,d:integer;
begin
readln(a,b,c);
if (a>b) and (c>b) then d:=(a+c);
if (a>c) and (b>c) then d:=(a+b);
if (c>a) and (b>a) then d:=(c+b);
writeln(d);
end.