1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.
Var
a,b,i,r:integer;
begin
writeln('введите значения для A и B');
readln(a,b);
i:=0;
r:=0;
repeat
r:=r+b;
i:=i+1;
until i=a;
writeln('ответ ',r)
end.
Var
a,b,i,r:integer;
begin
writeln('введите значения для A и B');
readln(a,b);
i:=a;
r:=0;
repeat
i:=i-b;
r:=i;
until i<b;
writeln('ответ ',r);
end.
Найдем координаты, в которые переместился Чертежник: суммируем координаты "x" вместе с "x", "y" вместе с "y". При этом, сумму каждой оси умножаем на "4", так как цикл повторяется четыре раза.
x = 4*(2 + (-2) + (-2)) = 4*(-2) = -8.
y = 4*(3 + 1 + (-2)) = 4*2 = 8.
Чтобы Чертежник вернулся в исходную точку, его координаты должны стать (0,0). Для этого полученные значения "x" и "y" умножаем на "-1". Получаем команду "Сместиться на (8,-8)".
Ответ: 4.
Ответ:
Старт/Стоп, Медиа назад/вперед, по кругу, случайное воспроизведение