if (d1<d2) then Label1.Caption := 'Ближе точка с координатами X1,Y1' else if (d1>d2) then Label1.Caption := 'Ближе точка с координатами X2,Y2' else Label1.Caption := 'Точки находятся на одинаковом расстоянии' end;
Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так: d1:= x1*x1+y1*y1; d2:= x2*x2+y2*y2;
1)Устройство ввода это клавиатура и мышь - ввода информации на компьютер и контроль им; Устройство вывода это, как я понял, принтер- он служит для вывода информации из компьютера в Реал; память устройства это жёсткий диск - устройство для хранения памяти, так же есть оперативная память (ОЗУ), она отвечает за количество выделяемой памяти для использования определённого процесса (количество этой памяти ограничено, это количество зависит от самой ОЗУ). Наименьшую плохо помню, но, вроде, 1.2 Ghz. 2)При устройств ввода и вывода. 3)Они находятся в цифровом виде (формате)
Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write('Зима');
if (A>2)and(A<6) then Write('Весна');
if (A>5)and(A<9) then Write('Лето');
if (A>8)and(A<=11) then Write('Осень');
End.
Объяснение: