Кароч смотри, нам дана координата от которой мы должны все это начать (-2,1) Надо сделать алгоритм который надо повторить 6 раз. Если ты не понимаешь слово алгоритм то просто подразумевай это как последовательность, которую надо повторить 6 раз. Нам даны три команды, которые идут последовательно, это:1)сместиться на (1,0); 2) сместиться на (-2,3); 3) сместиться на (3,-2). Объясняю, что значит сместиться (приведу просто пример не касающийся данного задания), например, нам дано изначальное число (1,0) и нам надо сместиться на (2,-1). Чтобы сместиться надо первые числа (1 и 2 сложить) и вторые (0 и -1 сложить), следовательно у нас получается координата (3,-1). Если показывать на буквах, то (x,y)+(a,b) = ((x+a),(y+b)) Теперь вернёмся к нашему заданию у нас дана начальная координата (-2,1) и команды, все надо повторить 6 раз. Запишу вообщем : (-2,1) + (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2). Итак вот вся последовательность теперь можно все упростить :(-2,1)+ (2,1)+ (2,1)+ (2,1)+ (2,1)+ (2,1)+ (2,1), теперь все складываем и получаем: (10,7) ответ:(10,7)
1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8). var a,b:array[1..8] of integer; i:integer; begin writeln('a:'); for i:=1 to 8 do begin a[i] := random(10); write (a[i], ' ') end; writeln; writeln('b:'); for i:=1 to 8 do begin b[i] := a[i]*a[i]; write (b[i], ' ') end; end.
2. var a:array[1..9] of integer; i:integer; begin writeln('a:'); for i:=1 to 9 do begin a[i] := random(50)+10; write (a[i], ' ') end; writeln; for i:=1 to 9 do if a[i] mod 2 = 0 then writeln(a[i], ' - четное число') else writeln(a[i], ' - нечетное число') end.
Пример: a: 55 51 18 35 33 56 15 56 47 55 - нечетное число 51 - нечетное число 18 - четное число 35 - нечетное число 33 - нечетное число 56 - четное число 15 - нечетное число 56 - четное число 47 - нечетное число
Надо сделать алгоритм который надо повторить 6 раз.
Если ты не понимаешь слово алгоритм то просто подразумевай это как последовательность, которую надо повторить 6 раз. Нам даны три команды, которые идут последовательно, это:1)сместиться на (1,0); 2) сместиться на (-2,3); 3) сместиться на (3,-2).
Объясняю, что значит сместиться (приведу просто пример не касающийся данного задания), например, нам дано изначальное число (1,0) и нам надо сместиться на (2,-1). Чтобы сместиться надо первые числа (1 и 2 сложить) и вторые (0 и -1 сложить), следовательно у нас получается координата (3,-1). Если показывать на буквах, то (x,y)+(a,b) = ((x+a),(y+b))
Теперь вернёмся к нашему заданию у нас дана начальная координата (-2,1) и команды, все надо повторить 6 раз. Запишу вообщем : (-2,1) + (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2)+ (1,0) +(-2,3)+(3,-2). Итак вот вся последовательность теперь можно все упростить :(-2,1)+ (2,1)+ (2,1)+ (2,1)+ (2,1)+ (2,1)+ (2,1), теперь все складываем и получаем: (10,7)
ответ:(10,7)
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
a[i] := random(10);
write (a[i], ' ')
end;
writeln;
writeln('b:');
for i:=1 to 8 do
begin
b[i] := a[i]*a[i];
write (b[i], ' ')
end;
end.
Пример:
a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49
2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
a[i] := random(50)+10;
write (a[i], ' ')
end;
writeln;
for i:=1 to 9 do
if a[i] mod 2 = 0
then writeln(a[i], ' - четное число')
else writeln(a[i], ' - нечетное число')
end.
Пример:
a:
55 51 18 35 33 56 15 56 47
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число