Turbo Pascal

A

AkeL.php

Guest
Ответ: Turbo Pascal

Разделить можно, если
d = n,2*n,..., m-1;
или
d= m,2*m,...,n-1
 

quant

yeah
Відповідь: Turbo Pascal

хаха я так же само решал - сначала идея была такая же, как и у Акела
потом подумав написал как WerSus64, но всётаки к (d mod m = 0) or (d mod n = 0) кое-чего не хватает ...
 

dreamer

Member
Ответ: Відповідь: Turbo Pascal

хаха я так же само решал - сначала идея была такая же, как и у Акела
потом подумав написал как WerSus64, но всётаки к (d mod m = 0) or (d mod n = 0) кое-чего не хватает ...
Код:
if ( (d mod m = 0) or (d mod n = 0) ) and (d <= n*m) 
then writeln('YES')
else writeln('NO');
 

WerSus64

New Member
Ответ: Turbo Pascal

dreamer учел все наши пожелания :D.

Кстати возведение в степень без процедур и функций:

y:=exp(a*ln x)
где х - что возводим,
а - в какую степень.
 

WerSus64

New Member
Ответ: Turbo Pascal

Главное эт ведь идея, ну а с записью и сами разберетесь :D
 

Cris

Member
Ответ: Turbo Pascal

люди подскажите как можно найти пересечение круга(кольца) и прямой или отрезка, и соответственно точки пересечения, но не используя систему уравнений
 

Hamster

Well-Known Member
2x+5 = sqrt(4-x^2)

где y*y+x*x=4 уравнение окружности, y=2x+5 - прямая. (пример)
Не путать круг с окружностью. Это же уравнение выходит с той же системы уравнений.
 

Cris

Member
Ответ: Turbo Pascal

а если центр окружности начинается не в начале координат и уравнение примерно такое:
(x-5)^2+(y-2)^2=9 центр в точке (5;2)

уравнение прямой(для примера)
y=2x+5
 
Зверху