Регистрация
Amaliya211013
06.03.2020 09:24
Информатика
Есть ответ 👍

Даны две точки на плоскости. напишите программу, определяющую какая из этих точек находится ближе к началу координат.

196
245
Посмотреть ответы 2

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

BOMJangLOX
BOMJangLOX
4,7(53 оценок)
Function vectorlength(x, y: real): real; begin       vectorlength : = sqrt(x * x + y * y); end; var       x1, x2, y1, y2: real; begin       readln(x1, y1);       readln(x2, y2);       if vectorlength(x1, y1) > vectorlength(x2, y2) then               writeln('point1')       else writeln('point2'); end.
avraval2009
avraval2009
4,8(14 оценок)
Var x,i: integer; begin x: =1; i: =3; while(i< 12) do begin if i mod 3=0 then  x: =2*x; i: =i+1; end; writeln(x," амёб будет через 12 часов"); end.

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