Begin
var a,b,c:integer;
readln(a,b,c);
if (a<=c) AND (a<=b) then println(b+c)
else if (b<=c) AND (b<=a) then println(a+c)
else println(a+b);
end.
Как была так и выглядит :D
Var k,m: Integer;
Dat: array[1..11] of integer;
begin
Dat[1]:=20;
Dat[2]:=25;
Dat[3]:=19;
Dat[4]:=25;
Dat[5]:=26;
Dat[6]:=22;
Dat[7]:=24;
Dat[8]:=28;
Dat[9]:=26;
Dat[10]:=21;
Dat[11]:=27;
m:=30;
for k:=1 to 11 do
if Dat[k] <m then
m:=Dat[k];
writeln(m);
end.
Ответ: 19.
Ответ:
10
Объяснение:
У нас есть известная часть выражения - (3m + 4n > 66) и неизвестная - (m <= A) \/ (n < A). Если мы подставим такие m илиn, которые дадут истину в первой части, то тогда A может быть любым, а нам надо найти такие m и n, которые дадут ложь. Сделаем первую часть ложной, то есть перевернём её - (3m + 4n <= 66). Уравняем m и n.
3 + 4 <= 66
66 : 7 = 9,4
Нам нужно целое число, берём больше чем 9,4 - это 10.
Ответ: 10.
5 бит.
Фальшивых монет может быть от 0 до 16 - всего 17 вариантов. 4 бит недостаточно, т.к. 2^4 = 16 < 17; а 5 бит хватит: 2^5 = 32 > 17