1)Устройство ввода это клавиатура и мышь - ввода информации на компьютер и контроль им; Устройство вывода это, как я понял, принтер- он служит для вывода информации из компьютера в Реал; память устройства это жёсткий диск - устройство для хранения памяти, так же есть оперативная память (ОЗУ), она отвечает за количество выделяемой памяти для использования определённого процесса (количество этой памяти ограничено, это количество зависит от самой ОЗУ). Наименьшую плохо помню, но, вроде, 1.2 Ghz. 2)При устройств ввода и вывода. 3)Они находятся в цифровом виде (формате)
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;
var
n, p: int64;
f: boolean;
begin
Read(n);
if n < 3 then
Write('Нет решения')
else
begin
f := false;
p := 3;
while (not f) and (sqr(p) <= n) do
begin
f := (n mod p = 0);
p := p + 1
end;
if f then
write(p - 1)
else
write(n);
end;
end.