80.Вычислить значение выражения по формуле Переменные вводятся с клавиатуры

program eighty;
const pi=3.14;
var x,x1,results:real;
begin
Write('x=');
read(x);
x1:=x*pi/180;
results:=x-10*sin(x1)+abs(x*x*x*x-x*x*x*x*x);
Writeln(results);
end.
Теги:
results, Write, Writeln, begin , program, const, eighty
Добавлено: 26 Мая 2015 22:39:42 Добавил: Илья Добряк Нравится 0
Добавить
Комментарии:
Нету комментариев для вывода...