var x,y:real;
begin
readln(x,y);
writeln(x-10*sin(x)+abs((1/exp(ln(x)*(y-1))-1/exp(ln(x)*(y-1)))/2));
readln
end.
Pascal Формула
Страница: 1
Сообщений 1 страница 1 из 1
Поделиться12013-09-26 22:36:14
Страница: 1
Форум школьного программирования , решение задач на турбо паскале , решебник по информатике |
Пользовательские ссылки
Информация о пользователе
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Pascal Формула
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Pascal Формула