Program Task;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x, y : real;
a, b : integer;
begin
a := 1;
b := 3;
read(x);
if (x < 2.3) then
y := exp(-b * x) * sin(b * x)
else if (x < 3) then
y := cos(b * x)
else
y := exp(-a * x) * cos(b * x);
writeln(y);
end.<span>
</span>
763/2=381 ост 1 381/2=190 ост 1 190/2=95 ост 0 95/2=47 ост 1 47/2=23 ост 1 23/2=11 ост 1 11/2=5 ост 1 5/2=2 ост 1 2/2=1 111111011
502/2=251 ост 0 251/2=125 ост 1 125/2=62 ост 1 62/2=31 ост 0 31/2=15 ост 1 15/2=7 ост 1 7/2=3 ост 1 3/2=1 ост 1 111110110
1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.
<span><span>
P=1/4
N=100/4=25
Ответ:25</span></span>