Смотри.
Смотришь, сколько раз выполняется твое условие. Здесь указано 4.
Смотришь на условие. Перемещение по X - 3,-2,1. Складываем - конечное перемещение равно 2.
Перемедение по Y - 0,-1,0. Складываем - конечное перемещение равно - 1.
Теперь умножаешь это перемещение (2;-1) на 4 т.к дано в условии, получается твой чертежник оказался после команды в точке (8;-4)
Вопрос таков - какую команду надо выполнить чтобы ВЕРНУТЬСЯ В ИСХОДНУЮ, значит нужно как бы шагнуть назад, с отрицательным значением
-8,4
Ответ :1
Отливаем в 200-граммовую емкость часть молока так, чтобы при наклоне емкости поверхность жидкости образовала бы "диагональную" плоскость, делящую емкость пополам, таким образом отмеряем 100г и выливаем их в 800-граммовую
Далее повторяем операцию и наливаем 100г в 600-граммовку, а потом наливаем 100 г в 200-граммовку
Паскаль
program sss;
var i,n:integer;
begin readln(n);
for i:=1 to n-1 do write(2*i-1,' ');
writeln(2*n-1)
end.
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Const N = 9;
var a: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to N do begin
a[ i ] := random(12)-2;
write(a[i]:4);
if a[ i ] > 2 then sum := sum + a[ i ];
end;
writeln();writeln();
write(' Сумма всех чисел > 2: ', sum);
<span>end.</span>
