Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.
1. візуальний. тестові
2. візуальний. графічні
3.візуальні. текстові
4. візуальні. тестові, числові
5.аудіальні. звукові
6.
Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int k=0,s=0,n;
cout<<"Введите размер массива: ";
cin>>n;
int a[n];
for (int i=0; i<n; i++) cin>>a[i];
cout<<"\nВведите K: ";
cin>>k;
for (int i=0; i<n; i++) if (a[i]%k==0) s+=a[i];
cout<<"\nСумма чисел кратных "<<k<<" = "<<s<<endl;
system("PAUSE");
}
Если решать в общем случае, то нужно считать отдельно суммарные смещения других команд, и брать их с обратным знаком.
x = - (-2 + 2) = 0
y = - (-1 + 1) = 0
Однако, тут можно было и не считать, и так видно что смещения компенсируются, поэтому чертёжик и так вернётся к начальной точке, даже если никакой команды 1 не делать.
Но, если уж сказано сделать, то тогда делаем команду с такими вот нулевыми смещениями.
Ответ: Сместиться на (0, 0)