ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1192. Мячик во сне

what's wrong with my program?
Послано Sum 1 3 фев 2003 21:39
var
   k, l, t, v, a: extended;

const
     pi = 3.1415926535;

begin
     readln(v, a, k);
     l := sqr(v) * sin(a * pi / 90) / 10;
     k := 1 / k;
     t := 1;
     while l * t >= 0.001 do t := t * k;
     l := l * (t - 1) / (k - 1);
     writeln(l: 0: 2);
end.
I got AC!!!
Послано Sum 1 8 фев 2003 15:05