Ветвление, Теория чисел, Циклы

[Woxx]

Здравствуйте!!! Меня радует этот форум реально, люди действительно выручают, если конечно же хорошо их об этом опросить. Так вот я Вас прошу, ниже Вам буду представлены 3 задачи, нам на лето дали 100 задача, сюда я выложе те задачи которые ваще никак не могу написать даже начало. Не судите строго!!!
1. (ВЕТВЛЕНИЕ) Написать прогу, определяющая, будут ли прямые
A1x + B1y +C1=0 и A2x + B2y +C2=0 перпендикулярны. Если нет то найти угол между ними.
2. (Циклы) Составить программу, которая запрашивает пароль (четырёхзначное число) до тех пор, пока не будет правильно введён.
3. (ТЕОРТЯ ЧИСЕЛ) Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2, 3 , 4 , 5, 6 , 7!!!!

[eoln]

Сообщение от Woxx

Здравствуйте!!! Меня радует этот форум реально, люди действительно выручают, если конечно же хорошо их об этом опросить. Так вот я Вас прошу, ниже Вам буду представлены 3 задачи, нам на лето дали 100 задача, сюда я выложе те задачи которые ваще никак не могу написать даже начало. Не судите строго!!!

День добрый!!! Мы предложить вам пользовать другой переводчик
1)

if A1*A2 + B1*B2 = 0 then writeln('перпендикулярны') else
begin
  k1 := -A1/B1;
  k2 := -A2/B2;
  writeln('угол = ', 180*3.14/arctan( abs( (k2-k1)/(1+k1*k2) ) ) )
end

2)

var
  i, q: integer; s: string;
...
repeat
  write('PASSWORD: ');
  readln(s);
  val(s, i, q);
until i = 1234;

С последним "(ТЕОРТЯ ЧИСЕЛ)" что-то не пойму. Нужно именно какую-то теорему или свойство применить или как?

[Woxx]

Спасибо, ты мне и так 2 задачи сделал, уж 3 сам попытаюсь!!!! Только вот просьба есть одна не мог бы ты 1 задачу подробнее расписать, это которая про перпендикуляр!!!

[eoln]

1-ая и так почти полностью...

var
  k1, k2,
  A1,A2,B1,B2,c1,c2: real;
begin
  write('input A1 B1 C1 '); readln(A1, B1, C1);//вводим ур-ия прямых с клавиатуры
  write('input A2 B2 C2 '); readln(A2, B2, C2);//С1 и С2 не нужны, просто они в условии есть
  if A1*A2 + B1*B2 = 0 then writeln('perp') else//условие перпендикулярности
  begin
    k1 := -A1/B1;
    k2 := -A2/B2;
    writeln('a = ', 180/3.14*arctan( abs( (k2-k1)/(1+k1*k2) ) ):0:2 )//ф-ла для угла
    //180*3,14 - необходимо для перевода радиан в градусы
  end;
  readln
end.

Все формулы можно глянуть на http://ru.wikipedia.org/wiki/Прямая

[ДОБАВЛЕНО]
Естественно B1 и B2 не равны нулю, иначе сразу зануляем соответствующий коэффициент