Var x,y,f,z,a:real;
begin
write('Введите x,z: ');
readln(x,z);
if x>13 then f:=-3/(x+1)
else f:=-(x*x*x)+9;
if x<1 then y:=x*x
else
if x>1 then y:=x*x*x
else y:=x;
if x>z then a:=y*z*z/(3+power(2,3/5))
else a:=2*cos(x+z);
writeln('F(x)=',f);
writeln('Y=',y);
writeln('A=',a);
<span>end.
Если функции power нет, то вместо
</span>if x>z then a:=y*z*z/(3+power(2,3/5))
напечатать
if x>z then a:=y*z*z/(3+exp(3/5*ln(2))
AB(16) = 171(10)
25(8) = 21(10)
11000000(2) = 192(10)
11000011(2) = 195(10)
11011001(2) = 217(10)
11011111(2) = 223(10)
171+21=192
Отсюда следует, что в данном ряду чисел являющихся больше 192 - три: 11000011, 11011001, 11011111. Всё!
Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
Буду обозначать команду "умножение на 2" буквой m, "стереть последнюю цифру" буквой c.
а) 361 -> 722 -> 72 -> 7 (mcc)
361 -> 36 -> 72 -> 7 (cmc)
б) 457 -> 45 -> 90 -> 9 -> 18 -> 36 -> 72 -> 7 -> 14 (cmcmmmcm)
457 -> 914 -> 1828 -> 3656 -> 7312 -> 14624 -> 1462 -> 146 -> 14 (mmmmmccc)