Var x, y: real;
begin
readln(x);
if x < 0 then y := Abs(sin(x));
if x > 3 then y := 1 / 2 + x * x * x;
if (x >= 0) and (x <= 3) then y := x / (x + 3);
write('y(', x, ') = ', (y):0:3)
end.
Ответ:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушить по
Объяснение:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушить п
329 минимальная стоимость перевозок. Учитываем ограничения по складам. Полностью удовлетворяем запросы магазинов.
Эмм..., ну тут ничего сложного, уж поверьте
1,2
var a,b,c :real;
begin
readln(a,b);
a:=(2*a)+b;
b:=3*(a-b);
c:=a+b;
write(c);
end.
в протоколах походу нужно записать ваши значения, и добавить ответы что у вас получилось
3.
var a,b,s,p :real;
begin
readln(a,b);
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(a,b);
end.