Ну, если я правильно поняла, то вот. например:
Белый, но не снег, быстрый, но не волк, в лесу, но не гриб. (Заяц)
1) "Забудьте" оба наушника на телефоне, т.к. сотрите из подключенных ранее устройств.
2) Выключите оба наушника
3) Включите ПРАВЫЙ наушник
4) Подключите его к телефону, чтобы он его запомнил
5) Включите левый наушник. Если он всё ещё не синхронизируется с правым, то снова отключите пару.
6) Теперь попробуйте включить оба наушника. Правый, по старой памяти свяжется со смартфоном, а левый с правым.
Таблицу покажи а то так невыполнить
Var
a,b,am,nod,bb:integer;
begin
readln(a);
writeln('--------');
readln(b);
am:=a mod b;
bb:=b;
while am*b<>0 do
if am>b then am:=am mod b else b:=b mod am;
nod:=am+b;
writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);
end.
Ввод:
14
-------
3
Вывод:
4 2/3
var
a: array[1..12] of real;
x: integer;
begin
Writeln('Начальный массив:');
for x:=1 to 12 do
begin
a[x]:=5*x-2;
writeln('a[', x, ']=', a[x]);
end;
Writeln('Увеличим каждый элемент массива на 8,125:');
for x:=1 to 12 do
begin
a[x]:=a[x]+8.125;
writeln('a[', x, ']=', a[x]);
end;
end.