0,1359Е+7=1359000
Отставляем запятую на 7 вправо
Рисовать умеешь, или самому нарисовать?
Идея в том что через серкл рисуешь солнце и прямоугольником 1 половину зарисовать ну или любой другой фигурой
Хобокрыл
птицеслон
млекоптица
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=-20
then y:=3*x*x*x
else if x<=30 then y:=abs(x) else y:=30;
writeln('y = ',y);
end.
Пример:
x = -5
y = 5
===== PascalABC.NET =====
begin
var a := ReadReal('Введи значение синуса угла:');
var b := Sqrt(1 - a * a);
Print('Коснус этого угла равен', b)
end.
Пояснение: sin²x + cos²x = 1