uses crt;
var i,j,p,a,b,c,d,a1,b1,c1,d1:integer;
begin
clrscr;
writeln('Числа Армстронга на интервале [100..9999]');
for i:=100 to 9999 do
begin
if(i<1000) then p:=3 else p:=4;
a:=i div 1000;
b:=i div 100 mod 10;
c:=i div 10 mod 10;
d:=i mod 10;
a1:=1;b1:=1;c1:=1;d1:=1;
for j:=1 to p do
begin
a1:=a1*a;
b1:=b1*b;
c1:=c1*c;
d1:=d1*d;
end;
if a1+b1+c1+d1=i then write(i,' ');
end;
readln
end.
наверно правильно
Ответ:
сместиться на (12, - 16)
Объяснение:
Сложим координаты по х и у (отдельно)
х = - 1 + 2 + 2 = 3
у = - 5 + (- 2) + 3 = - 5 - 2 + 3 = - 4
Умножим на количество повторений
х = 3 * 4 = 12
у = - 4 * 4 = - 16
После выполнения алгоритма
повтори 4 раз
сместиться на (-1, -5)
сместиться на (2, -2)
сместиться на (2,3)
конец
Чертёжник сместился на (12, - 16)
Значит весь алгоритм можно заменить на команду сместиться на (12, - 16)
1)8+54+62=124(всего удовольствий используют дети)
var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.
