<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
1)
begin
var x:=ReadInteger('Введите x->');
if x<3 then Writeln('y=',x+4)
else
if x>3 then Writeln('y=',x*x);
end.
Пример:
Введите x-> 2
y=6
2)
begin
var x:=ReadReal('Введите x->');
if x<4 then Writeln('y=',x*x:0:2)
else
if (x>4) and (x<5) then Writeln('y=',x+5:0:2)
else Writeln('y=',x*x*x:0:2);
end.
Пример:
Введите x-> 5
y=125.00
Function Fx(x:real):real;
begin
if x=1 then Fx:=1e18 { вместо бесконечности }
else if x<0 then Fx:=exp(-x)
else if x<=4.5 then Fx:=1-ln(abs(1-x*x))
else Fx:=2*x
end;
procedure Px(x:real; var y:real);
begin
if x=1 then y:=1e18 { вместо бесконечности }
else if x<0 then y:=exp(-x)
else if x<=4.5 then y:=1-ln(abs(1-x*x))
else y:=2*x
end;
var
x,y:real;
i:integer;
begin
for i:=-4 to 9 do
begin
x:=i;
Px(x,y);
Writeln(x:2,Fx(x):25:3,y:25:3)
end
end.
Ну кодирование-декодирование!?
640*480*24=7372800 битна одно изображение
7372800/8/1024=900 кбайт на одно изображение
1800 кбайт на 2 страницы.
значит так кролик это 4 лапы + 1 голова 5(ед) , голубь 2 лапы + 1 голова= 5(ед), размещаем сначало во все клетки по голобю + по кролику получается в каждой клетке уже по 8 (ед) остается 3 кролик и 4 голубя 5 елток тоесть еще по одному кролику и в 2 оставшиеся по 2 голобу получается 3 клетки будет по 1 голубю и 2 кролика и 2 клетки с 1 кроликом и 3 голубями проверяем 1*3+2*5=13 и 5*1+3*3=14 тоесть все верное :)