Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.
Какого алгоритма, напишите, пожалуйста, или ,хотя бы, скиньте фотку
Алексей - рыбак, Егор - фермер, Виктор - ветеринар, а Михаил пчеловод.
Живут они так: МЕАВ
Var s : string;
i, k : integer;
Begin
read(s);
for i:=1 to length(s)-1 do
if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
k := k + 1;
write(k);
End.
10
префиксное свойство - один код не может быть префиксом другого, значит (в данной задаче) не может начинаться с 00, 01, 11.
значит первые две цифры = 10. других нет, так как минимальный надо, а вероятности не заданы.