БОЛЬШЕ НЕТУ БАЛОВ Чертежник в точке В. Что нужно написать вместо a и b в команде "сместиться на вектор (a, b)", чтобы он попал в точку Б? Шаг сетки равен 1.
a Введите целое число или десятичную дробь… b Введите целое число или десятичную дробь
Вот программа : program xxx; <p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
#include <iostream>
#include <cmath>
using namespace std;
double Otr(double Ax, double Bx, double Ay, double By) {
return sqrt((Bx - Ax)*(Bx - Ax) + (By - Ay)*(By - Ay));
}
int main() {
double Ax, Ay, Bx, By, Cx, Cy, Dx, Dy;
cin >> Ax >> Ay >> Bx >> By >> Cx >> Cy >> Dx >> Dy;
cout << "|AB|=" << Otr(Ax, Bx, Ay, By) << endl;
cout << "|AC|=" << Otr(Ax, Cx, Ay, Cy) << endl;
cout << "|AD|=" << Otr(Ax, Dx, Ay, Dy) << endl;
return 0;
}
<p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>