var
x,y,z:integer;
begin
write('X= ');
readln(x);
write('Y= ');
readln(y);
if x>= y then z:=x+y
else z:=1-x+y;
writeln('Z= ',z);
end
– • –т – –р •е – • к• – б• • о – – •л – – •л
ТРЕКБОЛЛ
C английского trackball: track - путь, тропа + ball - шар, мяч. Трекбол - устройство в
виде шара на подставке, используемый вместо мыши или джойстика.
<span><span>
P.s. Т.к. трекбол на русском языке пишется с
одной «л», поэтому в правильности ответа я сомневаюсь</span> (на английском языке пишется двойная "L", но на русском одна «л»).</span>
Var
x, a, b: Integer; y: Real;
begin
//writeln(x,a,b);
ReadLn(x);
<span>ReadLn(a);
</span><span>ReadLn(b);
y:= tg*x*</span><span>exp(ln(a)*(b+1))*ln(a+b);
</span>WriteLn('Otvet y = 'y);
Держи в константе количество элементов прогрессии.