Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')
end.
#include <iostream>
using namespace std;
int sum( int n ){
int k = 0;
int t = n;
while ( t > 0 )
{
if ( ( t % 10 ) % 2 == 0 )
k++;
t /= 10;
}
return k;
}
int main()
{
int M,S,p;
cin >> M;
S = 0;
for ( int i = 1; i < M; i++ ){
p = sum(i);
if ( p == 0 ) {
S = S + i;
}
}
cout << S;
return 0;
}