. ПЛАЧУ Задача F «Геометрия 6 »
Стороны прямоугольного поля размеров 47*73 сантиметров помечены буквами A,R,Z,D. Маленький мячик B (его размерами можно пренебречь) размещен внутри этого поля в 13 сантиметрах от стороны R и в 29 сантиметрах от стороны D (см рис.3). Игрок ставит свой кий на сторону R в точке, размещенной в k сантиметрах от стороны D и прямо бьет по мячу B. Мяч продолжает движение по прямой линии и, если нужно, отражается от сторон поля. Отражение происходит по законам физики, то есть так, чтобы угол падения равнялся углу отражения. Начальный фрагмент движения мячика показан на рис. 4.
Ваша задача – написать программу, которая для данных чисел k(0<=k<=73) и n(0<=n<109) выведет расстояние от мяча до стороны R(BR) и до стороны D (BD) после того, как мяч пролетит ровно n сантиметров. Значения BR и BD должны быть выведены как вещественные числа и округлены до ближайшей тысячной сантиметра.
Примеры
ввод вывод
29 100 19.000 29.000
16 20 27.142 43.142
var x: integer;
begin
writeln('Введите число');
readln(x);
if (x mod 10 = 5) or (x mod 10 = -5) then
writeln('Число оканчивается на 5')
else
writeln('Число не оканчивается на 5');
end.
program p2;
var x, y, sum: integer;
begin
writeln('введите число');
readln(x);
if ((x >= 10) and (x <= 99)) or ((x <= -10) and (x >= -99)) then
writeln('является двузначным')
else
writeln('не является двузначным');
y := abs(x);
sum := 0;
while (y <> 0) do
begin;
sum := sum + (y mod 10);
y := y div 10;
end;
if sum = 8 then
writeln('сумма цифр равна 8')
else
writeln('сумма цифр не равна 8');
end.