Регистрация
Romanus11
01.01.2020 07:23
Информатика
Есть ответ 👍

Шартты пишим деуди калай колдандыныз тусындырыныз 1)
2)
3)гистограмма
4)градиентты бояу

132
167
Посмотреть ответы 1

Ответы на вопрос:

yaooiojhh
yaooiojhh
4,4(97 оценок)

const

  y = 5;

  x = 2;

var

  x1,x2,y1,y2: integer;

begin

  write('x1 = ');   readln(x1);

  write('y1 = ');   readln(y1);

  write('x2 = ');   readln(x2);

  write('y2 = ');   readln(y2);

 

  if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   <   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

      writeln('a ближе')

  else

        if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   >   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

            writeln('b ближе')

        else

            writeln('они на одинковом расстоянии');

readln;

end.

     

Популярно: Информатика