Использование модели "черный ящик позволяет изучить" только взаимдействие предмета и среды при этом даже отстутстуют границы между средой и объектом. считается сущестующим
Uses crt;
var x1,y1,x2,y2:real;
begin
writeln('Введите x,y точки A, x,y точки B: ');
read(x1,y1,x2,y2);
if sqr(x1)+sqr(y1)<sqr(x2)+sqr(y2) then
writeln('Точка A ближе.')
else
if sqr(x1)+sqr(y1)>sqr(x2)+sqr(y2) then
writeln('Точка B ближе.')
else
writeln('Точки равноудалены от начала координат.');
<span>end.</span>
1 12
2 2,3,4,9
3
var
n, m: longint;
d: integer;
begin
read(n);
m := 0;
while n > 0 do {1 на 0}
begin
d := n mod 10;
if d < 9 then begin
m := 10 * m + d; {домножили на 10}
end;
n := n div 10;
end;
write(m);
end.
Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>
У них много минусов
Подумай))