Var x, y: real;
begin
writeln (' Ââåäèòå ÷èñëà x, y');
readln (x,y);
if x>y then x:=x-y
else x:=x-y;
if x>y then y:=x+y
else y:=y-x;
writeln ('÷èñëî x',x);
writeln ('÷èñëî y',y);
end.
Var a,b:real;
i,d:integer;
begin
a:=0;
b:=0;
d:=1;
for i:=1 to 30 do begin
a:=a+100;
b:=b+d;
d:=d*2;
end;
b:=b/100;
if a>b then writeln('Богач отдал больше') else writeln('Бедный отдал больше');
end.
Пусть чертежник изначально стоял в точке (0;0).
Выполняем алгоритм:
сместиться на(-3;-6) - чертежник будет в точке (-3;-6)
Дальше идет цикл, выполняющийся три раза.
Пусть команда1 будет такой: сместиться на(x;y).
Тогда за один проход цикла чертежник будет в точке (x+2+3;y-5+3)=(x+5;y-2)
За три прохода цикла чертежник будет в точке (3(x+5);3(y-2))=(3x+15;3y-6)
и не забываем, что до цикла, чертежник был в точке (-3;-6):
(3x+15-3;3y-6-6)=(3x+12;3y-12)
И теперь ему надо вернуться в исходную точку, т.е в точку (0;0).
3x+12=0
3x=-12
x=-4
3y-12=0
3y=12
y=4
При x=-4 и y=4 чертежник из точки (3x+12;3y-12) попадет в точку (0;0).
Ответ: 4) Сместиться на (-4;4)
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
Ну по скольку рещение не нужно, то ты правильно решил:
Искомое минимальное количество солдат в части= НОК-1.
НОК берем от количества колонн при каждом построении. Все таки немного напишу:
(Х+1)/Ki, (X+1) должен делиться на все Ki, значит минимально будет НОК.